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Ad ventar et i ARROW QF DEATH/II parte 
(Giuliano Baschi) 

Didattica! A55EMBLY 
(Oianluca Carri ) 

Accaso casuale ai microdri ves/II parte 
(Danni ano Bolla £ Renzo Zonin) 

SOFTWARE i 

Polinomi (0, Al ci ni li S. Bai sano» 
Grafici polari (E. Pi zzeghel lo) 
Integrali doppi (P. Paccagnel la) 

LIST control (6. Corbelli) 

Bubble-tort in ling, macchina 
(Luigi Cai legar i) 

SOFTWARE i 

Bone (A. Ricciuti) 

Sinclairpar ade/la classifica 
I LISTATE 
Listati QL 

I simulatori di velo 
(Luigi Cai legar!) 

Un tasto per volta 
SPAZIO QL 

(Marco Mussini & Roberto Previtera) 

- Le variabili di sistema 

- Il linguaggio macchina 

- Il Super basic 
Un po' di Pascal 
(Monica Fumagalli) 

Vi deogames/recensi ani 
(Luigi Cai legar! ) 

Si nc 1 ai reti aroe/pi ccol i annunci 
Un tasto per volta (seguito) 


In copertina! 4, WEST M , adventure 
per il QL. 







Smau: 

il giro del mondo 

in 91.000 metri quadrati 


Smau: chr lo visita farà un entusiasmante 
giro dgf mondo in 01.QOQ mg. 
Qui intatti troverà tatto ile novità 
der più importanti produttori mondiali- 
Qu» troverà esperti capaci di consigliare 
lo soluzioni più aderenti al luluro dell azienda 
e dell'organizzazione del lavoro- 
T coverà la ifl* edizione 
del Premio Smau Indù stira I Design; 
troverà Convegni e Seminari; 
Irò vera lo Spazio Giovani. Troverà i! mondo intero: 
lutto racchiuso in 91 .000 metri quadrati. 


22i> Salone tremar io n a te 
perlVfticio: 

sistemi per l'informatica, 

,'e telematica, ie comunicazioni, 
macchine, 

fi-jTEd'ftrnento per t'officio 
ENTE GESTIONE MOSTRE COMUFFICIO 

Quartiere Fiera Milano 
19-24 Settembre 1985 

Contemporaitesmoo te, 3 ® EtMU, 

Esposizioni fniemazionai’e AtoWi (Mdo 
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STA LA POSTA LA POSTA LA POI 



RAM fantasma 

Ho uno Speci rum 18k. Le locazio- 
ni a* 32786 in su henne valore 255 « 
sono Inalterabili: perchè? Provando 
RANDOMIZE USR x, con x tra 1216 
* 1326 .. che cose succede?^. Giu- 
liano - Catania} 

Le locazioni da 32766 In su, nel 
i6k, non esistono! Con 1 16 kiioby- 
tes di ROM, uguali per tutti gli Spec- 
trum, si arriva alla locazione 16363; 
I i6k ol ftAM occupano le locazioni 
da 16384 a 32787. In queste sono 
compresi: la memoria di schermo, 
le variabili di sistema, l'area basic, 
gli Staok, gli JDG (quindi nella ver- 
sione T6k, in realtà, si hanno a di- 
sposizione per i programmi basic 
circa 9k), 

Il computer risponde 255 perché 
la routine di PEEK, nel sistema ope^ 
rat Ivo, preveda argomenti tino a 
65635 (perciò non va io errore) e, 
non trovando la locazione, ritorna 
un valore di default. 

Le locazioni citate fanno parte 
delle routines di gestione del regi- 
stratore: quello cih# si ottiene è un 
avvio (fltilzlo) di un'operazione di 
SÀVe. 


Spostare 
Il basic 

Come il f* i sposterà le locazió- 
ne di inizio dal basic nello Spec- 
trum? (B- $ tort ini - Cervia RA) 
L'operazione è possiti le simulan- 



do la presenza -di una "rnlcrodrive 
map area", a condizione ohe non si 
utilizzino mlcfotirivtis e si operi In 
linguaggio macchina (occorre un 
minimo di pratica di assembly); si 
devono eseguire le seguami Istru- 
zioni: 

LD HL, (CHANS) 

DEC HL 

LD BC,n 

CALL 5717d 

in cui CHANS è la variabile di si- 
stema che porta questo nome e n il 
numero di bytes ohe al vogliono li- 
berare; ar rientro dalla CALL, le lo- 
cazioni da 23734 a 23734 + n - 1 re- 
stano ullllzzabilir 11 metodo è sugge- 
rito dal collaboratore Giovanni Mal- 
Ima in un libro sul sistema operati- 
vo dello Spectrum di Imminente 
uscita nella noetrarcollana "I libri di 
System”. 

Confrontate anche, in questo nu- 
mero di SC, le informazioni sulla mi- 
Cródrlve map area nell 'articolo "Ac- 
cesso rancom al mdrives'\ 

Comunic azione tra», 
padri a tigli 

È possibile collega™ uno ZX81 a 
uno Spectrum? (Ivan Cassarti - Mila- 
no) 

In teoria, I metodi esistono; la via 
di comunicazione ptù usata nel col- 
legamento tra due compu tar è pro- 
babilmente la porta seriale, ma 
sfortunatamente per lo ZXSl non ne 
sono mai giunte In Itaita. 


Sappiamo invece dell'esistenza 
di un software per Spectrum che lo 
mette In grado di caricare program- 
mi dalle cassette ZX61, ma anche 
qui c'è una limitazione; l'operazione 
è a senso unico (dal più vecchio al 
più giovane). 

Monitor 

Come si collega lo Spectrum in 
modo monitor a uno zoccolo 
SCART? (vari I attóri) 

Si deve co negare la 'massa dello 
Spectrum al piedino 17 (Slgnal 
Ground) e la linea dei segnale com- 
posito al piedino 20, bypassando 
ovviamente il modulatore. Per met- 
tere il televisore In modo monitor 
occorre poi consultare le istruzioni 
dell 'apparecchio: solitamente vi si 
accetto superando l'ultimo canale, 
con II telecomando, oppure con un 
tasto apposito. 

Warning buzz 

A valle, Inserendo attribuii di co- 
lora o "Inverse", lo Spectrum dà un 
beep a ai biocca, (Sergio Tassi - Fi- 
renze) 

Le sequenze di attributi di stam- 
pa Inserite direttamente nelle strin- 
ghe possono creare questi problemi 
In fase di editing: niente di preoccu- 
pante, ma esiste il rischio che il 
blocco permanga, costringendo a 
spegnere II computer, perdendo il 
programma già scritto. È meglio 


àosair CWISl-Mi - 5- 


usare l comandi basic espliciti (PA- 
PER, iNK, FLASH, etc.), soprattutto 
se II programma deve essere porta- 
lo su carta' gli attributi Irroriti nella 
stringile diventano Invisibili e pos- 
sono creare difficoltà a urna stam- 
pante non Slnelal r-dedlcata. 

C'è Incompatibilità tra un dato 
immesso da un Joystick program- 
mabile a quello dalia tastiera? (Se- 
bastiane Grasso ■ Roma) 

La domanda non è molto chiara; I 
dati immessi via joystick o via ta- 
stiera, quando giungono alla ULA, 
sono in ogni caso ‘‘dati", cioè nu- 
meri. Nel caso del joystick occorre 
conoscere l'indirizzo della porta di 
ingresso e quali valori corrispondo- 
no alle diverse posponi: sapido 
questo, qualsiasi elaborazione è 
possibile, con l'evidente limitazione 
che i dati non possono essere più di 
5 (o fl). 

Le routines 
di trasferimento 

Come si comandano L.OAD i 
SAVBVEfiJFY In llng. macchina? <P. 

Ebner - Roma} 

Alla locazione 1218 della ROM si 
trova la routine di SAVE, Preparato 
mandar, come al caricano I regi- 
stri? (G. Benintende ■ Laontùfie EN) 

fi MERO E da mlctodrive non fun- 
ziona sa nel programma c'è l'auto- 
start, SI pud aggirare l’ostacolo? 
(vari tei tori) 

Come si registra a ricarica un 
programma senza headar? $1 pos- 
sono ancora usare VERIFY a M ER- 
GE? (vari lettori} 

Vista la quantità di richieste, il 
salvataggio n caricamento di pro- 
grammi con e senza header, chia- 
mando direttamente le routines ap- 
posite del sistema operativo,* Il lo- 
ro trasferimento su fnicrodrlve, sa- 
ranno oggetto di un prossimo arti- 
colo, che cercherà dì trai lare In una 
sola volta i diversi casi. 

Sulla ROM e II 
sistema operativo 

Come utilizzi™ le routines PLOT, 
C IRC LE. FRI NT AT, RND con una 
chiamata *1 (Ali? (Pforiulgi Fersini ■ 
Tara otto) 

S - Sirdai- Corpus* 


Qui i è II modo per astrane nume- 
ri ra ndom In llng . macchina? Quel è 
l’Indirizzo della routine di SAVE nel- 
la ROM, e come devono essere cari- 
cati l regi stri? (Fabrizio B. Corderò - 
Basissero C. TO) 

L'utlllzzo della routines grafiche 
e di gestione video richiede buona 
conoscenza del linguaggio m^£phl- 
na a dei sistema operativo; un di- 
scorso esauriente richiederebbe 
l'analisi delle routines, e 
CIRCLE7DRAW sono piuttosto lun- 
ghe. Anche a questi lettori consi- 
gliamo perciò una bibliografia:’! vo- 
lumi suli'assembiy Speotrum della 
MoGra.w-Hiìl, recensiti su SC n, 12. 

La routine RND $1 trova nella 
ROM da £725 a 9765, ma non può 
essere semplicemente chiamala, 
poiché non ha un'istruzione di ritor- 
no; per utilizzarla la soluzione mi- 
gliore è quella di. ricopiarla nella 
RAM e chiamarla poi come subret- 
tine. GII stessi libri offriranno mag- 
giori dettagli. 

Per SAVE, etr, risposta preceden- 
te. 

Stampanti 

La mie Alphicom 32 stampa ca- 
ratteri piu sbiaditi a sinistri. fLórari- 
20 Lugli - Pesaro) 

il difetto (peraltro poco evidente) 
non è facilmente eliminabile. Un pri- 
mo Inlervento può essere il control- 
lo dell 'al lineamento del "punti cal- 
di'' che provocano l'annerimento 
delia carta termosensibile (si t ratta 
di 16 punti): dove la stampa è sbia- 
dita potrebbero essere più distanti 
dalla carta. Altre verifiche possono 
èssere latte solo da un tecnico spe- 
cializzata. 

Como ài può ottenerle le stampa 
di cirilterl speciali su una stam- 
parne a 80 colonne, a I rinterri o di te- 
sti prodotti con un word-processor? 

(Isabella Pagano - Catania) 

Con II word processor non è pos- 
sibile (nò sarebbe pratico) eseguire 
hard-copy del video; per avere carat- 
teri speciali all'Interno di un testo è 
necessario che la stampante di- 
sponga dall'opzione "carati eri pro- 
grammabili", eventualmente con 
buffer di memoria (tipo Epson FX- 
80), Le modalità d'uso sono Illustra- 
te nel manuale di ciascuna stam- 
pante. 



Che cos'à II CP1M? (Sergio Doria - 
Milano) 

I! CPfM (Contro) Program for Mi- 
crocomputers), marchio registrato 
della Digital Research) non à un ti- 
po di basic, ma un DOS (Disk Opera- 
ti ng System, sistema operativo per 
dischi) por computer che usino l mi- 
croprocessori Intel 0080 o ZI log 
Z80. La lelteratura sui CPVM è am- 
pie, tutte lo migliori collane di infor- 
matica hanno almeno un volume 
che ne paria. Allo Speotrum è colle- 
gabile l'unità a dischi "Piccolo Gi- 
gante" (v- SC n. 11 gag, 49). prodot- 
ta dalla DATA B, di Milano, che met- 
ta a disposizione II sistema CPi'M 
dialogando con II computer (visto in 
questo caso come un terminala) at- 
traverso là porta RS2S2 doli' Interfa- 
ce f. 


(Massimo Albini - Milano) Per far 
eseguire 1 domandi BOROEfi e PA- 
PER già al primo ciclo di program- 
ma, basi a Inserire un 'citar 
screen” (GLS) subito dopo di essi, 

(Paolo 0'Ambrosi - Trieste) L'ipo- 
tesi è giusta; se II computer non è 
stato manomesso, l' inconveniente 
dipende probabilmente dalla mem- 
brana; un centro di assistenza ti sa- 
prà dare una risposta più precisa di 
noi, che non vediamo il computer. 

(Andrea Gitti - Cramona ) Il corso 
di aseembly per lo Speotrum è ini- 
ziato Sul n. CK ed è proseguito per 
lutti 1 numeri, con la sola eccezione 
del D&; sul n, 12 irovl un indice anali- 
tico completo dei primi dieci numeri 
di SC. 

(Alberto Roncaiio - Genova) TI 
consigliamo di leggera la rubrica 
"Un tasto alla volta", sul n, 1 2 (peg. 
58l, relativamente a "POKE": abbia- 
mo l'Impressione che tu abbia le 
Idee un po' confuse in merito a que- 
sta Istruzione basic. 

(Emasto Cappello - Ragusa) Si 
deve rivolgere alia riviste ohe ha 
pubblicato quel l’articolo, e non a 
nol- 


R [sposte brevi 



Perfezionamenti 
& precisazioni 


TotoSe Ikosha 

li programma "TotoSelkosha" pubblicalo alle pag. 23133 del n, 12 
necessita di una piccola messa a punto per un migliore funziona- 
mento; le linee 2161 e 2167 vanno inserite ex-novo, la 2162 e la 216© 
vengono modificate comodi seguito. 

2161 FDFt TO 3z IF m+Ì>Col TU 

EN GO TO 2167 

2162 LET = £ j +mJ : FO R * = 1 TO 

I 3 

2166 GO SUB 2140: NE X T x 

2167 NEXT m 

Ho fatto 13? 

Anche questo Software è apapreo sul n, 12. Nel caso si vogliano 
controllare più di 20 colonne, occorre inserire le linee S7e 3027, e mo- 
dificane le altre qui listate, già esistenti nel programma. 

87 DIM mine) 

3025 FGR TO nc STÉP 20:^FGR 

k= 1 TO 20; IF Iss + k-lX-nc THEN 

LET pn=0: FOR j=l TO 13: LET d 

= ( d$ < j I { z +k - i , j I > ; GO TO 3030 
3027 GO TO 3055 

3030 PRINT INVERSE d ; AI l + j,k + i 
0; cl <2 +k- 1 , j ) e LET pn=pn+d; NEXT 
j 

3040 LET m(?+k-ti=pn: IF pn>ml T 
HEN LET ml-fjn 

3050 NEXT k : PR I NT 40 i "premer e u 
n tasto per le altre colonne 

PAUSE 0: FOR i =M TO 13: PR3NT 
flT i + I , 1 1 ; " £ 20 Spà? i 3 

M : NEXT i: NEXT z 

QL ■ msstermlnd 

Qualche piccole problema par II "mastermind” desiinateal Olid. 
13 pag, 40): nonostante rassicuratone che fossa libero da errori, il 
sento proiettore del bug cl ha messo la zampa. Alla linea 350 anziché 
CHR$ (0) Inserite CHF$ (1>; alia 430, Invece di CHRJ (0) scrivete CHRS 
( 2 ). 

Caricamento di hex 

II programma "Istogrammi" (n, 12 pag. 26/34)» non era chiaro in me- 
rito ai caricamento del codici per la «lampa eu 64 colonne. Ecco un 
esemplo di come fare; digitate 

10 CLEAH 64255 

20 FOR x = 64256 TQ 65055 

30 INPUT qj: 

40 LET q= CODE q£ 

50LETq = q^7'(q>Ó4) 

60 POKE x ,4 
70 NEXT x 

e inserì re un codFce a ogni richiesta di input. Al termine, salvata su 
nastro con SAVE “noms” CODE 64256,800, quindi caricate II basic. 


(Luca Bonaventura - Corsica MI) 
1. Insisti con l'edicolante perchè ri- 
chieda la rivista, 2. Non cl risulta 
che si trovi altro, anche perchè II 
software per lq 3X6 1 si ve eseuron- 
do sul mercato, 3. è stato pubblica- 
to sul n. 10 (pag. 48). 

/fi Riseppe Cartella - Trapani } Co- 
me tal a dire che la testiera non 
c'entra, se sono proprio f tasti che 
non funzionano? Sembra il tipico di- 
fetto da piste interrotta. Per I ricam- 
bi bisogna rivolgersi a chi ha vendu- 
te te 2XB1. 


A luglio 




Non 

perdete 

il 

prossimo 

numero 
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Vorrei Alcuni consigli psr I' 

Iure Valhailta della Legend- 

( Mario Rambeidf - Napoli) 

MI dispiace deluderli, ma VALHA- 
LIA non è un vero e proprio actvmt li- 
re, non rientra Quindi Ira I program- 
mi die io conosco. Pubblichiamo il 
tuo indirizzo per scambiare consigli 
a osservazioni con altri appassiona- 
ti di questo programma: M. Ram bal- 
di, via Acittlio 160, SD12B Napoli. 

1) TTw Hobblt; come fare ad traci- 
re dalla caverna dei Gobi In? 

2) The Hobblt: come far ai ette II 
drago e 11 bardo si Incontrino? 

2} Circus: quale è lo scopo del 
gioco? 

{Francesco Ghhotto - Ravenne) 

1) Par uscirà dalla caverna dei 
Goblin, dobbiamo essere alla pre- 
senza di Gandalf o Ttibrin e quindi 
digitare: 

SA.Y TO THORIN (0 GANDALF) 
"GPEN WIN DOW' 1 
SAY TO THORIN “CARRY ME" 
SAY TO THORIN "WEST”, 

2) Bisogna Indicare al Bard la 
strada che deve prendere, per esem- 
plo SAYTO BARO "NORTTH’', 

3) Bisogna far sanare in aria il cir- 
co “maledetto” a fuggire, con l’au- 
to, prima dell 'esplosione. 

Come si entra nella "BOAT” In 
The Hobblt? (vari lettori) 

Per entrare nella "BOAT" dobbla* 
ma, dopo aver preso la corda e aver 
raggiunto la sponde del fiume, ese- 
guire questi comandi: 

THROW POPE AC ROSS 
FULL ROPE 
CU MB INTO BOAT 
CUMBOUT. 

Perchè rispondendo nel giusto 
modo alle domande di Goilum (ho 
ietto Et librai in The Hobblt, vengo 
sempre strangolato? 

(Alberto Braghe fio - Ftìmtfti (Fo)) 

La cosa miglior# è non perdere 
tempo a rispondere, ma uccidere di- 


rettamente GoJlum. 

1) In "THEHULK” come devo tare 
per liberarmi delle corde che mi ten- 
gono legato alla sedia? 

3 tn "ORACLFS CAVF’, non ho 
capito l'uso che si deve tare della 
chiave magica. (Paolo Gfiircg - Fb 
renze) 

1) Per trasformarsi nel mostro 
verde , e per poter quindi si tappare 
la corda,, bisogna causarsi del dolo- 
re mordendosi le lìngua: SITE 
LEAR, 

- 2) ORACLE'® CAVE non è un ad- 
venture. 

Per prime cosa, coma fai a risol- 
vere tutti gli avventure? 

1) Fn “The eya ol Baln", non rie- 
sco s liberarmi dalle detene 

2 } Come uscire dalle fognature e 
dal labirinto degli specchi In “Wax 
vvonks 1 ’? (Andrea Garau - Bollano) 

Per quanto riguarda ta soluzione 
dagli ad venture, devo dire che il la- 
voro non è tutto mio. Slamo un 
gruppo di amici ohe si riunisce 
spesso per risolvere questi enigma- 
tici programmi. Anzi colgo l'occa- 



sione per ringraziare Fulvio Cedasi, 
Benedetto Dell'Olmo e Francesco 
Baroni per la loro preziosa e indi* 
spensabile collaborazione. Ma pas- 
siamo alla risposte. 

1) In Eye of Baia, devi sollevare il 
palo con il verbo LIFT. 

2) Per guanto riguarda i labirinti, 
possono essere risolti Min II alete- 
ma di “pollicino", già descritto sul 
numero 10 di SINCLAIR COMPU- 
TER. 

Per quanto riguarda il vocabola- 
rio, Il consiglio l'acquisto di uno più 
completo. 

Verrei porti alcun# domande su 
“The golden baton": 

1) quale è lo scopo? 

52) come si apre la porta gigante- 
sca? 

53) come si va nei lago? (Artfon/c di 
Cristoforo - Manfredonia FG) 

1) Le scopo di questo avventure è 
quello di trovare la Banchetta d'ore 

2) per aprire ta porta, bisogna pu- 
lire l'anello: ROUSH RING. Apparirà 
una chiave. Digita quindi UNLOGK 
ODOR e poi GG DOOR. 

3) Per superare II granchio gigan- 
te, e quindi raggiungere II lago, devi 
offrirgli il corpo delia lumaca (Gl VE 
SLUG) e quindi GO LAK£. 

Ho subito delle difficoltà nelilftl- 
Ziar# “TIME MAGHINE", Come su- 
perare la palude? 

(Alberto OFely - Comasco S/N MI) 

Dai luogo di partenza, devi segui- 
re queste precise direzioni: nord, 
ovest e quindi sud. Vedrai che da 
qui potrai continuare. 

Scrivete & 

Giuliano Boschi 

VI# F. Massi 12 

QfllSS ROMA 

At ferii ione: 

si risponderà alia lattare solo sul- 
le pagine delie riviste; non è possi- 
bile inviare risposte privale. 


Trasforma il tuo Spectrum in Spectrum + 




Compstibiie con (mio II software 
e ie periferiche esilienti 


Con il kit originale 
puoi trasformare li tu 
Spectrum In m nuo 
Spsctrum Plus ! 

il kit contiene oltre alla tastiera in robusto materiale antiurto, i 
chips ohe aggiorneranno all'ultima versione, la IsSuè 6B, il tuo 
Spectrum. Il nuovo software # le nuove perllericlw saranno 
realizzati proprio in «unzione della tesue 6B, soie cosi quindi 
puoi garantirti un computer al pausa coi tempi r Potrai final - 
mente usare il tua Spectrum con la facilità tori Oui Si digita Su 
una macchina de scrivere, è il nuovo tasto di reset ti consen- 
tirà di cancellare ti programma in memoria sema scollegare 
l'aiimenTatore. Il kit contiene anche le istruzioni in italiano par 
li montaggio, faci lissimo eie eseguire: basta saper saldare guat- 
che file. Puoi larfi aiutare da un amico o anche da un comune 
tecnico tadiùEelevis^o, Se bai poi ancora soltanto uno Spec- 
trum 16 K, questa è l'occasione per avere l’espansione di 
memoria a 4SK a un prezzo favoloso: solo 43.000 lire + iva. 


ZX SPECTRUM EXPANSION SYSTEM 
AL PREZZO Di 278.000 LIRE + IVA 


con sole 

87.500 Zi 


Spedire il presente MODULO D’OBDlWE, o fotocopia, in una 
busta chiusa, unendo L 3.000 In francobolli per Je spese postali 

— ■ >£ 

Spente APCO s.r.l. - Gas Post, 239- 1001 5 IVREA (TO) 

desidero ricevere quanto da me contrassegnato con X Pagherò 
direttamente al postino gli importi qui elencati, ohe sono com- 
prensivi q| IVA e di spasa di imballo 0 contrassegno. s 


La confezione contiene: 


INTERFACCIA 1 ino spense oile 
per ti collegamento dai Micro- 
drive, munita inoltre di un'inter- 
faccia R$ 232 


MICRODRI VE. I alternativa Sin- 
clair ai floppy, che amplia le 
ppseibilita della Spectrum ocn 
ia ricerca velocissima del dati 
sul particolari supporti magne- 
tici (micrpQàrtridge). 


* Tastiera professionale di 56 tasti 
cèjfì 17 nuovi comandi 


e Componenti di aggiornamento all'ultima 
versione dell'ila rdware: la Jeeue 68 


Completo di isffUZionlj BUld® in 
italiano, cassetta dimostrativa 


INTERFACCIA PROGRAMMABILE 


PER JOYSTICK 


A SOLE 

L. 59.750 

+ IVA 


La Stonechip Electronic* è 

stata la prima ditta a realizza- 
re per lo Spadmnn un'interfac- 
cia programmabile, considera- 
ta in Inghilterra fra te migliori. 
Facile da usare, si programma 
da tastiera Garanzia € mesi. 


SOFTWARE Su 4 cariridge, con: 

- Word Proceeaor T ranswcrd 2' 

- Master fife Irle System - Game designer 


In omaggio il libro della Jackson sui Microdnve e l'Interfaccia 1 


50 FANTASTICI VIDEOGIOCHI 50 

Regi strati su nastro, delta sofiware-house inglese Cascade 
Ganres all'Inverosimile prezzo di sole Lire 2 b. Ciad - IVA 1! 


U Kit trasformazione in Spectrum Pfua 

a L. 

1 05.000 

□ Espansione di memoria RAM a 4SK 

■ : ■ 

59.000 

n ZX Spectrum ExpensiOn System 

a L. 330.000 

□ Raccolta di SO VIDEOGIOCHI gy nggtrp 

a L. 

30.000 

U N... confezioni di 12 Cassette C“20 

a l. 

16.000 

U confezioni singole microdrlve cartrìdge 

a L. 

7.500 

□ Interfaccia ore grame ubi! a par Joystick 

a L. 

72.000 



1 2 CASSETTE C’2D A LIRE 1 2.660 + IVA 
Nastra professionale AGFA PE619, box fra- 
a parente in KoTil aSSembfatù con 5 vili, scor- 
rimento su perni in acciaio lubrificati, 









Robert L, Swarts 

zxao e ZX81 come strumenti di controllo 
Franco Muzzìo & C. Editore* 1984 - p. 224 - L 15.000 


'"Siete stanchi di fiochi? State cercando qu&lcose di veramente nuovo e diverso? 
Lavate travato". Questa,! n sintesi, il contenuto- Osila simpatica introduzione, che do- 
vrebbe suonare come un Invilo a nOzift per tutti gli SITianetlonl Che hanno ancora nel 
□assetto gli 2X30F81, aopo essane passati a computer superiori & per abbendono. 

Occorre gualche c&n&soenw di aletimntaa. ma del tutto elementare, si presume 
(ed è proprio li minimo) che non abbiate problemi con il basic Sinclair, che sappiate 
leggere semplici circuiti, e quanto al linguaggio macchina, può essere Finalmente 
l'occasione per Impararlo, ma non è indispensabile per la maggior parte dei progetti 
presemeli. 

Un notevole pregio del libro, scritto con toni divertenti a spesso ironici, com'è etile 
tlpiceme nte americano, è di non essere I nubilmente trionfalistico: Fin daFle prima pagi- 
ne si mettono in evidenza l limiti oggettivi della macchina, e i progetti presentai I sono 
realistici sla per il coste che par il livello tecnico, 

Motto valido l'insieme anche dal punto di vista didattico, accurata la traduzione. 
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M. Henrof - J. Boisgontier 

Lo ZX Speci rum per tuttU relazione + programmi 

EPSl/EdltSl, 1985 - p. 180 ■ L 13,000 

Sempre piuttosto ralicoae, invece, se t raduzioni in questa collana delia Editai, ripro- 
posta In Italiano di una serio di manuali di informatica c* 10 in Francia va per la mag- 
giora (almeno cosi et riferiscono): i testi risentono sensibilmente delio sciovinismo 
linguistico dei paese d'onglne, In cut a un ormai universale "computer" si oppone 
OStlnatemenle "ardinàtaur" 

Guanto al contenuto, il libro Si propone come una delta tanle alternative *1 manuale 
che accompagna io Spectrum. inserendosi in classica in posizione sicuramente di- 
gnitosa. L'imposlaiìene à prevedibile (non c'è molto da inventare): primi contatti con 
io Spectrum, la tastiera, lo schermo, struttura di un programma, l comandi del basic, 
gli i'Dfl, la grafica, etc. 


Nell Sl Pat Cryer 

BASIC Pfogr&mfnlng on thè QL 

Prentice Hall Internaiìonal, 1985 - p, 264 


li fatto thè per uno dai primi 'veri' manuali sui Superbaslc al aia scomodata una ca- 
sa sdii ri ca di prestigio tome la PrentiCSiHaU |n(. ata a dimostrare la aerialA con cui In 
Gran Srelagna stanno amministrando il 'itìnomeno QL'... a differenze di quanto avvia- 
ne, per ora, de noi, dove le potenzialità dalla macchina vengono misconosciute, la 
pubblicità è poca, la dotazione di accessori, software e manuali procede con lentezza 
tutta burocratica. 

Gn vero manuale, dicevamo: non poche notizie ratfazzonete, mia oltre 260 pagme 
01 trattazione rigorosa, con molti eslffi i esempi puntigliosamente spiegai 

Ogni argomento affrontato è accompagnate da un paragrafo (Jl e&ercizi e proposi® 
di problemi da risolvere, dei quali si tornisce le soluzione (o una possibile eolutìonei 
al termine di olscun capitolo. 

In molti dei quali si trova un paragrafo intitolato ''Punti da ponderare' . seguilo da 
una '"Discussione sua punti de ponderare": vi ai affrontano problemi di programmazio- 
ne dal punto di vista teorico (con esempi di soluzioni), analizzando anche i crllwl che 
hanno ispirato gli estensori dal Superbaalc a dei (2(505. 

Un libro che non dovrehba mancare all'utente del OL: auguriamoci che venga sol le- 
ni talenta tradotto 0 almeno distribuito In adizione originale. Una nota di marito *(* 
che alla veste pratica e all accuratezza del l’Im pagi nazione. 


, 
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ZX Spectrum 
Expansion System 

L'alternativa della Sinclair ai floppy disc 


Lo ZX Spectrum Expansion System contiene: 

■ Uno ZX Microdriwe - Che amplia la possibilità dello ZX Spectrum in quel settori, 
come quelli della didattica' e delle piccole applicazioni gestionali., dove è necessaria 
una veloce ricerca delle Informazioni memorizzate su un supporto magnetico 

■ Una ZX interface i ■ indispensabile per il collegamento delio ZX Mhcrodrive 
Incorpora una mterfaeoa (fS 232 e un sistema di collegamento in rete locale 

■ Quattro cartucce Micro-drive comprendenti un programma di: 

* Word processor «Tasword Secondo* 

* Mastelle fillng System 

* inventore di giochi 

* Le Formiche giganti 

■ Un programma dimostrativo dei Microdrive 

■ Documentazione per il collegamento, il funzionamento e altre descrizioni tecniche 

■ Cavi di collegamento allo Zx NET che può collegare 
fino a 64 computer ZX Spectrum o QL 



Arrow of death 


Dopo aver compì stato la prima 
parte di Arrow of deaih ($.C„n, 11), 
carichiamo la seconda puntala dì 
questo adventure nella memoria dei 
nostro Speotrum. Slamo proni I a 
continuare la storia. 

CI troviamo al bordi di urta palude 
{1). Digitiamo INVENTORVj e notia- 
mo ohe abbiamo con noi alcuni de- 
gli oggetti trovati nella prima parta 
della storia: una punta di freccia, un 
ramo di salice, una piuma d'aquila 
(oon le quali dovremo costruire una 
freccia magica e mortale, con cui 
uccidere li malvagio Xerdorv) a una 
spada, Rechiamoci con circospe- 
zione a est (E|. Una scialba pianura 
(2) si apre dì fronte a noi, offrendoci 
la possibilità di scegliere tra nume- 
rose vie da percorrete. Puntiamo 
verso N, Qui (3) troviamo un miste- 
rioso cespuglio. Prendiamolo (GET 
sh rub;. e ci troviamo in mano soffi- 
ci foglie. 

Ritorniamo a S e poi ancora S. 
Slamo al luogo (4): chissà cerche, 


dobbiamo scavare (DH3); troviamo 
una utilissima pietre focaia, che ci 
affrettiamo ovviamente a prendere 
con noi (GET FUNTSTONE), 

Torniamo al luogo 2 (N); sposi ia- 
mocl a E, N, hi: una sorgerne sgorga 
dalle rocce (7) e cl biocca il passag- 
gio. Non resta che tornare al punto 
di partenza fS, S, W r W,); andiamo 
poi a nord, per due volte (N, N). Que- 
ste volta è un burrona (9) che non ci 
parmelte di proseguire, ma niente 
paura, possiamo sempre provare a 
sattere (JUMP). Raggiunto un punto- 
più basso, davanti a noi troviamo 
un ponte di corde. 

Tentiamo di attraversarlo, spe- 
rando che possa reggere II peso 
(GO BRIDGE), Mentre aliamo in bili- 
co 5 ni ponte (li), un uccello vola so- 
pra d> noi e lascia cadere qualcosa, 
Torniamo Indietro (5) scandiamo (D) 
ancora. Ecco la cosa: un elmetto di 
metallo. Raccogliamolo (GET HEL- 
METi. Notiamo anche la presenza di 
un Crepaccio. Avviciniamoci |GO 


CREVICE), ed entriamo In una ca- 
verna (13), Troviamo una lampada 
ad olio. Aggiungiamola ai nostri 
averi (GET LAMPI. 

Torniamo sul ponte (hi, U, GO 
BRIDGE), andiamo a N, raccoglia- 
mo (GET WEED) l'erba che si trova 
In questo prato (12). Saliamo (U> 13). 
Una inspiegabile griglia di metallo 
sembra impedire di nuovo ogni via 
di uscite (in questa seconda parte 
alcuni passaggi sono molto poco 
logici, e occorre molta fantasia). 

Ma coraggio, non tutto è perduto. 
Rechiamoci di nuovo sul pome (D, 
5). Il computer ci fa notare la pre- 
senza delle corde che sorreggono II 
ponte- Afferriamole saldamente 
(HQLD RDPE) e, con la spada, ta- 
gliamole (CUT ROBE), li ponte si 
sfascia e precipitiamo rovinosa- 
mente, ma le foglie ohe abbiamo 
con noi permettono un atterraggio 
morbido (sic!), attenuando gii et fol- 
ti delia caduta. 

Cl troviamo su di un tratto di roc- 



’dvenfures 


eia (14). Laviamo la ormai inutili fo- 
glie (DROP LEÀVES) a raccogliamo 
il pazzo di corde, che cl ha seguito 
nella cadute (GET ROPEj 

Andlamo verso l'arco di piatta 
(GO AftGHWAY) e da QUI (15) a E. 

Il buio ci avvolge, ma con lampa- 
da a pietra focaia non è un proble- 
ma fare luco (LiGHT LAME): di scar- 
niamo un luogo corridoio (16); conti- 
nuiamo a E; una porta, saldamente 
chiosa (17), costringe a Lo mare in- 
dietro (W, S). 

Proviamo a N (18) e ancora N, in- 
contriamo una scala (19) che sale e 
scende: saliamo (UJ; una macabra 
scena ci si presenta di fronte. Un 
guerriero morto e un enorme aquilo- 
ne. Esaminiamo il guerriero (DIAMI- 
NE WARRIOR); ha il cranio sfonda- 
to e Indossa un'uniforme. Lasciamo 
momentaneamente la corda (DROP 
POPE), prendiamo la divisa e ind&s- 
siamole (GET uni FORM, WEAR 
UNI FORM). 

Ora scendiamo due rampe di sca- 
le (D, 0): giungiamo in una stanza di 
pietra fai), alla presenza di una 
guardia e di una gigantesca ruota di 
metallo. La guardia, vedendo la no- 
stra uniforme, ci ignora. Proviamo a 
girare la ruota; e troppo pesante. 
Abbiamo una strana erba: mangia- 
mo un po' (EAT WEED).., Cl sentia- 
mo subito più forti. 

Proviamo nuovamente a girare la 
ruota (TURN WHÉEL), una sola vol- 
ta o un numero dispari di volte. Sen- 
tl remo un rumore di meccanismo, 
ma non accade niente di visibile. 
Andiamo a E; anche qui (22) una pe- 
sante port£ Ci impedisce il Cammi- 
no, Torniamo al luogo 21 (W. U, U), 
lasciamo l'erba e l'uniforme (DROP 
WEED, RE MOVE UNI FORM, DROP 
UNI FORM), prendiamo l'aquilone e 
la corda (GET KITE. GET ROPE), 
quindi W. Ci troviamo su di una piat- 
taforma (23), solto di noi si apre un 
baratro. 

A mali estremi, estremi rimedi: 
tenteremo con l'aquilone a mo' di 
deltaplano. Indossiamo il casco 
(WEAR HELMET) e saltiamo 
(JUMP). È fatta, atterriamo sani e 
salvi nel luogo 9. Lasciamo aqui le- 
ne ed elmetto (DROP KITE, REMO- 
VE HELMET, DROP HELMET), an- 
diamo a» luogo 7 (3, S, E, E. N, N). 
Non vi è più la sorgente, ma solo 
fango. Ora si comprende che cosa e 


successo girando la ruota del luogo 
21: abbiamo Interrotto la fuoriusci- 
ta dell'acqua. 

Entriamo nel fango (GO MUD, 24); 
c'è una piastre nei muro. Cerchia- 
mo nei fango (EX AMINE MUD) e tro- 
viamo una leva dì metallo, tiriamola 
(PULE LEVER) e la piastra scorre, ri- 
velando un'apertura nella roccia, 
che attraversiamo (GO OPENING). 
Cl troviamo ora all'interno di una 
costruzione (25), proseguiamo ver- 
so est (E, »), quindi nord (N, 27). In- 
centriamo uno strano animale, che 
dobbiamo purtroppo uccidere (KiLL 
ANIMAL): issoerè cadere una pre- 
ziosa chiave, che ci affrettiamo a 
raccogliere (GET KEV) 

Andiamo a 5, E, 5, quindi saliamo 
(U). Troviamo una porta sprangala, 
sblocchiamola (UNBOLD OOOR) 
entriamo (GO DOOR), Slamo di nuo- 
vo nel luogo 22- Raggiungiamo fa 
stanza 17 |W, U, 5, S, E, E): ora ab- 
biamo la chiave, possiamo sblocca- 
re anche questa porta (UNBLOGK 
DOOR) ed entrare (GO DOOR). Si 
tratta di un magazzino £30). Posia- 
mo la chiave (DROP KEV).. Non pos- 
siamo certo tacciare che pane e for- 
maggio restino a li ad ammuffire, 
prendiamoli (GET BREAD, GET 
CHEESE). 

Torniamo al luogo 26 (N. W, S, N, 
N, D, E, GO DOOR, □, N), quindi a 
nord (N), dove c'è una staila (31). Un 
mulo affamalo cl guarda tristemen- 
te; diamogli un po' di cibo (FEED 
MULE). Ora ci guarda contento, vie- 
ne vicino e cl segue affezionalo (S. 
W, W, D); entrismo in un- sotterraneo 
(32), vediamo una grata (EX AMINE 


GRATI NG); sotto di essa vi è un pri- 
gioniero. Leghiamo la corda prima 
Sita grata e poi al mulo (TI E ROPE. 
TO GRATINO, T«E ROPE, TO MULE). 

Tiriamo vigorosamente II mulo 
(PULL MULE), la grata è divelta, em- 
t riamo nel buco (GO HOLE}(33). Tro- 
viamo Arnìd, Il costruttore di frecce. 
Osserviamolo più attentamente 
(EXAMINE ARNID), scopri amo che è 
privo di sensi. Dobbiamo andare a 
riprendere l’erba che abbiamo la- 
sciato nella stanza 21 (U, U, E, E, S, 
U, GO DOOR. W, GET WEED) e tor- 
nare alia 33 (E. GO DOOR, D, N, W, 
W, D, GO HO LE), Offriamo la poten- 
te erba a Arnid (GIVE WEED, TO AR- 
MIDO, che si riprende e dice: «mi hai 
salvato, comandami». 

Conoscando ovviamente la sua 
maestria nel costruire ie trecce, gli 
chiediamo di montarne una, con ie 
pad! di cui noi siamo in possesso 
(MAKE ARROW). Arnid fa la freccia 
e se ne va. Se digitiamo INVENTO- 
RY, vediamo che sterno In possesso 
della freccia magica (magical ar- 
row). 

Adesso dobbiamo trovare e di- 
struggere Herdan. Rechiamoci nel 
luogo 2BA -:U, U. E, E, S), quindi an- 
cora a S. Ci. troviamo in urr tempio 
(34). Esaminiamo l'arazzo (EX AMI- 
NE TAPESTRY); c'è un bottone d’ar- 
gante nel muro. Spingiamo (PUSH 
BUTTQN) e, dal muro., esce uno 
strano- altera, su cui (EXAMINE AL- 
TAR) troviamo una candela. Accen- 
diamola (UGHT CANDLE) a, visto 
che siamo in un tempio, preghiamo 
(PRAY). Una colonna di fiamme si 
alza dalla candela; occorre ancora 




un LXAMJNÈ FLAME per scoprire 
che la fiamma sembra più debole. 
Risctìlamp il tutto per tutto ed en- 
triamo Ira té fiamme (GQ FLAME), 

Istantaneamente ci troviamo su 
di un ai tare (35), in un posto che non 
è quello che abbiamo lasciato. 
Spengiamo la lampada (EXTINGUE 
LAMPI, andiamo a S, 5, E, Siamo 
all'esterno di una capanna (3S), sn- 
idarne (GO HUT ; 3&). Troviamo pipa 
e tabacco, prendiamo anche questi 
(GEI PIPE, GET TOBACCO), quindi 
N, W, S. 

A un piccolo molo è attraccala 
una barca (4P); montiamo (GO 
BOAT); su una barca (41) non pos- 
siamo non mancare i remi: GEI 
OARS e remiamo (ROW BOAT). Ma, 
come lasciamo la riva, siamo in- 
ghiottiti da qualcosa e tutto diventa 
buio., Accendiamo la lampada 
(LJGHT LAMP): Siamo nello stoma- 
co di un enorme pesce (42) „,ricor- 
date Pinocchio? 

Intanto troviamo un logoro man- 
tello, che subito raccogliamo (GET 
CUOACK) e indossiamo (YVEAR 
CLOACK). 

Carichiamo Ja pipa con il tabacco 
(F1LL PIPE), accendiamola (LiGHT 
PIPE) e fumiamo per due volte 
(SMOKE PIPE, SMOKE PIPE). Il fu- 
mo riempia la pancia del pesce, che 
tossisce e ci espelle sbattendoci 
violentemente su una spiaggia sas- 
sosa (43). Lasciamo i remi (DROP 
QARSì Uno scheletro animato ci 
blocca II passaggio; per ora Sg noria- 
moto, andiamo verso sud per due 
volle (S, G), buine i a W (4$). 

Raccogliamo la pietra che si tro- 
va a terra (GET ROCK), entriamo 
nella caverna (GO CAVEj (47). C'è 
una pala, prendiamola (GET SHQ- 
VEL) e scaviamo (DIG). Troviamo un 
candelotto di dinamite con un pez- 
zo di miccia (GET DYNAMITE), con- 
tinuiamo a N, notiamo un mucchio 
di sassi (EXAMlNE CAIRN) e trovia- 
mo un sasso liscio e brillante. 

Lasciamola lampada, prendiamo 
lo strano oggetto (DROP LAMP, 
GET STGNE), studiamolo (EXAMI- 
Né STOME): su dì esso è rappresen- 
tata la figura di un mendicante (io 
stesso della prima parte?) strofinia- 
mo la pietra (RUB STGNE): appare il 
mendicante, at quale diamo il sasso 


(Gl VE STONE), Lo strano personag- 
gio prende ia pietra, ci lascia un ar- 
co magico che ovviamente non la- 
sciamo l( (GET BOW), a scompare. 

Torniamo ai luogo 43 (S, E, E, hi, 
N); con la grossa pietra distruggia- 
mo lo scheletro (SMASH SKELE- 
TON); il sentièro è Ora percorribile 
(GO TPAIL), arriviamo a! luogo 49; 
scaviamo di nuovo (DIG), entriamo 
nel buco che siamo riusciti a otte- 
nere (GO HGLE). Da questo (SO) an- 
diamo a È, ma la via è chiusa (51), 

É il momento di usare la dinami- 
te: DROP DYNAMITE, accendiamo 
la miccia (LIGHT FUSE) e scappia- 
mo subito a W. Aspettiamo il cotto 
(WAìT)„ quindi torniamo a E. Un am- 
pio varco cl permei te di continuare 
questo nostro cammino che sembra 
senza fine (GO HO LE). 

Siamo entrati in una costruzione 
(52). Continuiamo a N (53), quindi 
saliamo (U, 54): mentre una strana 
nebbiófina luccicante invade que- 
sto ambiente, continuiamo a N. Tro- 
viamo un organo a canne, ditélto 
del padrone dei palazzo (55); EXAMi- 
NE ORGANI, e | rovi amo uno spartito 
musicale. 

Esperti musicisti, (Indiana Jones 


sa lare tutto, no?) possiamo suona- 
re ia musica dello spartito sulf orga- 
no (PLAY MUSIC)... il computer av- 
verte che sta accadendo qualcosa. 
In Fatti, tornando a sud (S), la r-eb- 

oline è scomparsa e un corridoio 
cl permette di continuare II nostro 
cammino (GO CORRI DO Ft), Ancore 
due volte a nord (N, N) e avremo di 
fronte una vetrata (53); un ultimo 
passo a S. 

Slamo in una stanza con una fes- 
sura nel muro (55). Esaminiamo la 
fessura (EXAMIN E SLiTS): dall'altra 
parte e‘è una stanza (3g) con Xer- 
don. Veniamo anche informali della 
possibilità di colpirà da li, il malva- 
gio nemico. Non c'è allora tempo da 
perdere: incocchiamo la freccia, 
prandi amo té mira e lasciamo parti- 
re il mortale messaggio (5HOQT 
XtKDOJV). La freccia magica non 
mance a bersaglio, Xerdon muore, il 
suo corpo scompare in una nuvola 
di fumo. E fatte: l'avventura è final- 
mente conclusa. 

Bicordi amo ancora che chi ha do- 
mande e richieste di aiuto sugli ad- 
venture puC scrivere direttamente a 
Giuliano Boschi, via F. Massi 12, 
00152 ROMA. 


- ÉmSair Canputer 




Controllo programma 

Appartengono a questa oategorla 
la istruzioni che permettono di ef- 
lettuare salti a auàmutint o adeler- 
minate sezioni del programma prin- 
cipale, su condiziona o In modo ìm- 
p licito, e quindi JP. JR, OJNZ, CALL 
e RST. La prima Istruzione, JP jtjtt, 
memorizza l'Indirizzo™ nei registro 
PC, provocando il salto alla locazio- 
ne di memoria nn. La verdona jp 
cc.nn, (dove cc è uno del codici 
di condiziona Z, NZ, C, NC, PE, PO, 
M, P visti nei n. 8 di SC) permette di 
effettuare IT salto solo se la condi- 
zione specificata è vera, per es. JP 
C, eOOOH prosegue f'aeecuzione dei 
programma dalla locazione di me- 
moria SOOOH solo ae il flsg 0 è atti- 
vato, pwero se l'ultima operazione 
di aritmetica effettuata ha generato 
un riporto, 

L'Istruzione JR è da un punto di 
vieta logico equivalente a JP; Ja dif- 
ferenza consiste nel fatto che l'indi- 
rizzo della locazione di memoria a 
cui saltare non viene specificato di- 
rettamente, ma viene calcolato in 
modo relativo ai contenuto dai regi- 
stro PC. Esempio; JR 40 salta in 
avanti di 40 bytes: JR -12 salta In- 
dietro di 12 bytes. 

VI sono diversi vantaggi che soli- 
tamente fanno preferire l'uso di JR: 
Anzitutto JR permette di scrivete 
programmi NlocabdJI, ovvero esegui- 
bili correttamente a partire da qual- 
siasi Indirizzo. Per ottenere tale ri- 
sultato à necessario evitare qual- 
siasi riferimento di tipo assoluto a 
una particolare locazione; JP 50QH 1 
indica In modo assoluto la locazio- 
ne 500H, mentre JR 12 indica In mo- 
do relativo la locazione che segue 
di 12 bytee quella attualmente in 
esecuzione. 

Auro considerevole vantaggio; 
JR S più corta di JP, Richiede infatti 
2 bytes Contro i 3 di JP. 

Ogni medaglia ha perù II suo ro- 
vescio e difetti JR affianca ai pregi 
alcuni difetti non trascurabili: può 
saltare ai massimo 129 byies in 
avanti e 128- indietro rispetto alla 
posizione corrente, viene eseguita 
più lentamente, e non consente di 
provare II tlag P'V e il flag di segno. 

Abbiamo Infine 3 versioni specia- 
li di JP; JP (HL), JP (IX), JP (IY) Che 
saltano alia locazione specificata 


Programmazione 
In assembly 
con lo Spectrum 

di Qianluca Carri 


dai contenuto del registro fra paren- 
tesi. 

L’istruzione DJNZ, già vista più 
volte, riassume gli effetti di DEC B e 
JR HZ, d. 

Abbiamo poi CALL, anch’essa 
già incontrata, che alle funzioni 
svolte da JP aggiunge la memoriz- 
zazione nello stack del corrente in- 
dirizzo, affinchè un'ietruzione SET 
possa far ritorna al punto di chia- 
mata, come avviene In basic con le 
più familiari istruzióni <305 UB e RE- 
TURN. 

Ustruziòne R$T è una forma ab- 
breviata di CALL, avente il vantag- 
gio di occupare un solo byte e di es- 
sere eseguita più velocemente. Vi 
sono però solo ® possibilità: RST 0, 
R$T 3, RST ioti. RST 18H, RST 20H, 
RST 20H, RST 30H, RST 38H, cia- 
scuna delle quali corrisponde a una 
CALL all’indirizzo di memoria speci- 
ficato, Normalmente la disponibili- 
tà di queste Istruzioni à slrutiata 
dal costruttore del computer, che 
posiziona agli indirizzi di destina' 
zlone di RST i punti di ingresso di 
alcuni sottoprogramml usatUnolto 
frequentemente: lo Spectrum non 
fa eccezione alla regota, quindi RST 
iGH può essere usato per visualiz- 
zare sullo schermo n carattere con- 
tenuta nel registro A, RST 2BH acce- 
de alle routine* di calcolo In virgola 
mobile, ecc. 


Controllo sistema 

Esiste nello ZBQ una ristretta fascia 


di istruzioni necessarie per un con- 
trollo sul funzionamenio hardware 
della CPU e cioè NOP, HALT, Dì, El, 
IM Q, IMI, IM 2, IN, OUT. 

NOP (no operation) non fa niente 
per un ciclo della CPU. Non è per 
questo inutile, serve sia a definire 
con precisione la temporizzazione 
di un programma, che a caricai tare 
zone dì memoria. 

HALT sospende l'attività della 
CPU fino all 'arrivo di un segnale di 
interrupt. Poiché nello Spectrum gli 
interrupt sono generati automatica- 
mente 50. voile al seoondo, MALI 
può servire a Introdurre ritardi nel 
programma, oppure a sincronizzare 
un' uscita su video con la frequenza 
di quadro. 

Di, El rispettivamente dfs&blUla- 
no e abilitano la ricezione degli in- 
ternet. 

Per quanto concarne IMO, IM fa 
IM 2 si veda SC n. 9 a pag, 7, 

Per finire, IN e OUT servono per 
leggera o scrivere dati da/su un di- 
spositivo esterne come una stam- 
pante, un Joystick, la tastiera, ecc, 
Consideriamo le varie forme delle 
Istruzioni disponibili. 

Abbiamo Ri A (N) che preleva nel 
registro A il byte inviato dai pori di 
ingresso N, e IN i, (G) che preleva 
nel registro r II byte inviato dal port 
di ingresso C. 

Per OUT abbiamo Invece OUT (N), 
A e OUT (Q, i che sono l'opposto 
delle precedenti in quanto Inviano II 
byte verso II port d'uscita. 

in particolare, OUT (254), A per- 
mette di cambiare lamporanesmen- 
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te il ecfore dei tordo (definito dal bit 
0,1,2 dal registro A) o di 
alt ivara.'disal t Ivare I ' ai toparl ant I no 
interno (bit 4), 

IN è frequentemente usato per 
leggere la tastiera: si veda a propo- 
sito SC n. 10 a pag. 7. 

Le versioni "speciali" INO, INDR, 
INI, IN IR, OLITO, OUTDfi, OLJTJ, 
QT1R sono usate solo per trasferire 
grandi massa di dall dalla memoria 
a una periferica (ss. Microdrìve) e vi- 
ceversa, a velocità particolarmente 
elevata. 

Struttura di Dati 

Sicuramente l'elemento che de- 
termina la funzionalità e l'efficienza 
di un programma Assambiy èli si- 
stema con cui sono organizzati I da- 
ll eh# esso usa. il problema è spes- 
so sottovalutalo dal neofita, in 
quanto lavorando In basic ci si abi- 
tua a tare uso di strutture di dati 
predefinite, o implicitamente con- 
nesse a certe istruzioni. Per esem- 
pio l'istruzione basic READ n garan- 
tisce al programmatore di prelevare 
un dato dalla lista specificata 
dall'Istruzióne DATA, e Quindi di as- 
segnare il dato alla variabile n 

Lavorando in Asssmbly non esi- 
stono strutture di dati predefinite, 
eccezion fatta per lo staci!, per cui e 
Il programmatore stesse che deve 
crearsele, ottimizzandole per cia- 
scuna applicazione specifica. Per 
struttura di dati si intende un siste- 
ma attraverso il quale 0 possibile 
ma risiere In modo ordinato un in- 
sieme di dati numerlol o alfanumeri- 
ci., e accedere ai singoli elementi 
che lo compongono- 

La struttura di dati più semplice è 
la lista sequenziale; fn essa I dati 
sono memorizzati uno dopo l'altro. 
In locazioni contigue di memoria, 
lo stock, le cose (gueyw) sono 
spesso organizzati coma liste se- 
quenziali. Pe r accedere ai dat i si ut i- 
lizza solitamente un puntatore, ov- 
vero un registro che punte alf inizio 
della lista, a che viene quindi incre- 
mentato fino a contenere l'indirizzo 
del dato voluto. Si tratta anche del- 
la struttura quasi sempre usata 
nell 'ambito delie cosiddette fooftup 
tabiss. Esemplo: 

25000 GROP Dato 0 


25004 A SCO Dato 1 

25005 ALEP Dato 2 
25012 1234 Dato 3 

le si rutterà di dati appena vista è 
organizzata come liete sequenziale 
s partire dal l'indirizzo 25000, Usan- 
do la tecnica delle tooMup tobfas (In 
cui la risposta a un problema può 
essere fornita semplicemente sele- 
zionando un date all'Intero della ta- 
bella, senza effettuare calcoli mate- 
matici) potremo localizzare il dato 1 
(ABCD) con II seguente sottopro- 
pramma (ammettendo di avere nel 
registro A il numero del dato): 


L GGKU P 


LQ L , fi 
LD M 

trmaero entrata 
ft'DD HL.HL 
} HL»HL#2 
ADE HL t HL 
|HL-HL#2 
Lfi Dt.25BD3 
1 Inizio tabe Ha 
ADE HI, DE 
^HL=indt r -dato 


Potrete verificare mentalmente 
che chiamando LQQKUP con A=1 
avremo in uscita HL = 25004, ovvero 
l'indirizzo del dato n. 2. Questa tec- 
nica è usata molte spesso per la 
sua facilità di implementazione e 
per la sua efficienza in molte situa- 
zioni. 

Se per esertipio vogliamo scrivere 
un programma par generane suoni e 
cl necessitano le frequenze delle 
note fondamentali per ricavane tut- 
te ie altre, risulterà vantaggioso me- 
morizzare tali valori in liste sequen- 
ziali piuttosto che fi calcolarli ogni 
volta. 

Spesso te liste sequenziali sene 
ordinate, ovvero un dato à minore o 
maggiore dei successivo secondo . 
un ordine numerico, alfabetico o di 
altro tipo. Questo consente di loca- 
lizzare con maggiora rapidità I dati: 
un dizionario è una lista sequenzia- 
le ordinata alfabeticamente, nella 
quale il dato voluto può essere tro- 
vato scartando tutti quelli che, 
noli 'ambito dell 'ordine (alfabetico) 
usato, risultane essere maggiori o 
minori, 

Un'altra importante struttura di 


dati à la lieta collegata, o ttnlmh 
Ifst. in questo caso i dati non sono 
memorizzati sequenzialmente, e 
possono differire In lunghezza. Il 
concetto fondamentale risulta nel 
fatto che II primo dato di una lista 
col legata e l'Indirizzo dei l'elemento 
successivo. Tale slamante potrà 
quindi risiedere fisicamente in una 
locazione non necessariamente 
contigua a quella dell'elemento pre- 
cedente, ma risulterà, secondo lor- 
dine logico determinato dalia strut- 
tura, conseguente ai dato ohe ne ne 
fornito l'Indirizzo. 

Il vantaggio fondamentale di una 
strutture, simile è ohe non Importa 
spostare dati In memoria: se voglia- 
mo cancellare, ineerlre, spostare un 
dato non è necessario modificare fi- 
sicamente il diate stesso, ma solo 
l'Indirizzo di collegamento, 

Lo svantaggio risiede nella ne- 
cassili di usare due bytes per l'indi- 
rizzo di ffrtfr di ciascun dato nella li- 
sta: è ovvio che se abbiamo a che 
fare con dall lunghi solo un byte 
l'uso di una struttura linked list è 
assurdo. 

Altre strutture frequentemente 
usata sono quelle ad albero, neces- 
sarie per stabilire delle reiezioni di 
ordine gerarchico fra i dati: ciascun 
dato punta genera intente a più dati 
i quali puntano a loro volta ad altri 
dati. Sì tratta di una procedura par- 
ticolarmente utile quando si devono 
conciliare procedure pani col arman- 
te intricate con una relativa sempli- 
cità dell 1 algoritmo dei programma. 

Vorrei sottolineare che quasi 
sempre le strutture standard sono 
inefficienti netrap.pl Inazione parti- 
colare di un programma in Assem- 
bty: Il programmatore spesso deve 
usar# nuove varianti db teli struttu- 
re, per giungere ad un buon pro- 
gramma; se fosse- necessario effet- 
tuare un'animazione di figura sullo 
schermo dovremmo progettare una 
struttura di dati che consente di lo- 
calizzare rapidamente la posizione 
di ciascune figure, di stabilire la di- 
rezione, I a velocità e altri parametri 
slmili. Ss la nostra animazione pre- 
vedesse Il movimento simultaneo di 
50 elementi, giungeremmo quasi si- 
curamente a un risultato assai sca- 
dente se ìa nostra struttura fosse 
mal progettata. 




f ■■ Ritorna in edicola 

: vino basic : 

Il rnrsn nm pntiicimmnntp ai rneeùHn 


corso piu entusiasmante su cassetta 

■ del Gruppo Editoriale Jackson per Commodore 64, ■ 

■ VIC 20 e Spectrum I 

■ 200.000 copie vendute ■ 

I 
I 

.. J 


li corso è composto da: 

20 fascicoli + , 

20 cassette + 

5 splendidi raccoglitori 


Oggi è davvero tacite imparare il 
Basic. Con Vfdea Basic il corso su 
cassetta che ti permette di 
rogrammar# subito ri tao computer. 
fadie= hj chiedi, lui risponde, 
tu impari. Passa dopa passo. 

Sui tuo schermo appaiono le 
domande, le risposte, gii esercizi e 


fu, senza fatica, presto e bene, 
ìmpari a conoscere 
e programmare il tuo computer, sia 
esso un VIC 20, un Commodore 64 o 
un Sinclair. 

Video baste # in edìcola. 

Provala subita. 

Ogni lezione è una spettacelo. 


Oggi il basic si impara cosi. 

Video Basic, Il carso su cassetta per 
parlare subito col tuo computer. 

Videa Basic 

per imparo re non salo il ftaslc. 



Un' altra grande idea firmata 
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Accesso casuale 
ai Microdrives-n 

di 0. Bolla 1 R. Zonln 


Dopo aver Inslenne li modo 
per leggere dal microdrive in modo 
random, parliamo ora di corri# seri’ 
vere re,mtom. A cui fesso sfuggita la 
prima parte, raccomandiamo di an- 
darla a leggevo sui numero 12 

Scrittura ad 
acceaso random 

Quando abbiamo affrontate II 
probfema della scrittura random por 
la prima volta, pensavamo che fos- 
se indispensabile H ricorsa al lin- 
guaggio macchina; ciò si é rivelato 
falso # siamo In grado di pt esentare 
una serie di routine® lulte scritte in 
basic, a quindi facilmente compren- 
sibili da chiunque abbia un minimo 
di conoscenza del sistema di I/O del- 
lo Speoi rum, e In particolare deite 
variabili di sistema deH’Intertecè 1. 
Un loro elenco com mentato è stalo 
pubblicato sempre sul numero 1 2- 

Sapete già (e se non lo sapete ve 
lo diciamo noi) che loSpectrum, per 
ogni canal# apèrto, créa una map- 
pa, odia quale malte tutte I# infor- 
mazioni rei al ivo a quel canale- Per r 
canai I collegati ai mlcrodrtves viene 
creata anche una mappa dei nastro, 
che tiene traccia di quali Siano 1 set- 
tori liberi e quali quelli occupati. 
Avrete capilo a questo punto dove 
sta II trucco; per scrivere "'random" 
in un settore abbiamo bisogno di: 


a) poter manipolare la mappa del 
mlcrodrive in modo tale da inganna- 
re lo Specfrum quando va a scrivere 
I dati, per esempio tacendo apparire 
libero un settore occupato; 

b) sapete quali siano i tlag 
( = indicatori; letteralmente bandia- 
te} che mostrano ga un file 6 aperto 
in scrittura o in lettura; 

c) sapere quale è il numero di set- 
tore nei quale è memorizzato un 
blocco di un Mie; 

Vediamo quindi com'à organizza- 
ta la mappa del microdrive e come 
bisogna manipolarla per ottenere 
cib che vogliamo-. 

La mappa, è composta da 32 by- 
tea, ohe partono dall 'indirizzo 23792 
compreso in poi fper un solo canal# 
aperto). Ogni singolo bit corrispon- 
de a un settore sul nastro: il bi 1 dal 
byte 1 corrisponde al primo settore, 
il bit 2 ai secondo, il bit i dai oyte 2 
al settore 9, e cosi via. Se un bit è 
settato a t r U settore corrisponden- 
te è occupato; in caso contrario tì li- 
bero. In totale quindi si possono In- 
dividuare 32 B S=;2S6 settori. 

Modificare un file 

Cominciamo ad esaminare il ca- 
so più semplice di scrittura random. 


e cioè la modifica di un qualsiasi 
settore di un file. 

Dobbiamo far credere allo Spec- 
trum che II saltare che vogliamo 
modificare sia Ubero, # che sia runi- 
co settore nel qual# pud scrivere. 
Per modificare un blocco dobbiamo 
sapere in quale settore sì trova (at- 
tenzione a non fare confusione fra li 
numero d'ordfde del blocco dati e li 
nomavo dei sartore di nastro dove è 
registrato}. 

L’informazione che ci serve è 
contenuta nafta locazione 
HONUM0 (byte 41 dei canale-), che 
indica proprio qual# è il settore noi 
quale è registrato il blocco corren- 
te. Una volta noto questo dato non è 
difficile creare una routine che ube- 
ri proprio FI settore interessato. 
Questa rouiln#, che si trova all# li- 
nee da 9000 e $040, riceve in Ingres- 
so il numero dei settore, e va a PO- 
KEare nel corrispondente byte della 
mappa il valore voluto. 

A questo punto debbiano sola- 
mente convertire il file da iattura a 
scrittura e viceversa. Niente di più 
facile: Il flag che Indica se un file è 
aperto in lettura o scrittura si trova 
nella, variabile di sistema CHFLAG 
(byte 24 del canale}. Per abilitare la 
scrittura basta eseguirà una POKÉ 
23&1 4 + 24,255 e per la lettura una 
POKE 23S44 + 24,2$4. Si deve tener 
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presente però che sia la «altura cha 
la scrittura sano pilotate dalla va 
ri abile CHBYTE (1 1/12), che punta al 
prossimo dato da leggete o de scri- 
verà. 

Ciò vuol dire che &e avaia un file 
aperto In Lettura e lo coromulerte in 
scrittura, scriverete nel fila a partire 
dal dato puntato da CHBYTE. Gua- 
sto fette non provoca peraltro pro- 
blemi nei caso oda stiamo trattando 
(modifica di un fila); Infatti la modi- 
fica del file avviane in 3 tasi: letture 
random del sellerà carpato, scrittu- 
ra In RAM dal nuovi dati al posto di 
guatili vecchi, scrittura randoin del 
ciacco dati modificalo nei settore 
di nastro occupato dai vecchi dati. 

Aggiungere dati a un file 

Supponiamo ora che non cl basti 
sostituire vecchi dati con nuovi da- 
ti, a che II nostro obiettivo sia di ag- 
giungere dati ad un fila, Ei metodo 
da seguire è praticamente lo stesso 
dalla «scrittura, scio che c'è un pro- 
blema nuovo da affrontare: dova an- 
diamo a scrivere? Quando abbiamo 
modificato la mappa dei mlcradrive, 
prima abbiamo settato tutti 1 settori 
da 1 e poi abbiamo liberalo quello 
che cl Interessava; cosi facendo pe- 
rò abbiamo perso dì vista quali era- 
no i settori veramente liberi e quali 
quelii occupati. Per svitare questo 
[neon vedente, prima di modificare 
La mappa originale dobbiamo crea- 
re una mappa alternativa, che per- 
metta di ricordare I settori liberi e 
quelii occupati (dai file o da pro- 
grammi). 

Di questo si occupa le routine 
che si trova dalia linea $000 alla 
8040 La mappa eMemativa. viene 
messa In una matrice p. Tra paren- 
tesi, ricordiamo che i settori del mh 
crodfìvs sono numerati dallo 0 In 
poi, mentre le matrici sullo Speo- 
trum hanno come indice Inferiore 1; 


questo spiega I +1 o -1 presenti 
nelle routine^ del programma. La 
convenzione che si usa In questo 
programma è Che II primo settore è 
li numero 1: tenetelo presente quan- 
do andate a smerlettare per vostro 
conto. 

Tornando al nostro (He, poniamo 
di volergli aggiungere un blocco di 
dati. Par prima cosa carichiamo in 
memoria quello che è attuai mente 
l’ultimo blocco dei file. Modifichia- 
mo la variabile RECFLG (byte 67) 
che. dopo ripetuti esperimenti, cl ri- 
sulta essere semplicemente un 
Identificatore di line file, ponendola 
a 0. In questo modo 11 blocco che 
era di fine file diviene per li sistema 
uguale agli altri blocchi (il valore 2 
in RECFLG indica che questo broc- 
co è l'uri Imo del file). Infine riscri- 
viamo ri blocco. 

Vediamo In dettaglio ie operazio- 
ni da compiere per riscrivere un set- 
tore: 

a) modificare la mappa 

b) trasformare da lettura a scrit- 
tura 

c) segnalare che 11 blocco è pieno 
con POKE 23044 + 13,3 

d) digitare PfilNTfc4f rr 

A questo punto il drive si metterà 
In moto e scriverà ii blocco dati nel 
seriore voluto. Ora In memoria ave- 
te un blocco vuoto; scrivete quello 
ohe volete nel modo standard (ohoè 
con PRINT#4; quando avete 
Unito POKEate in RECFLG il valore 
2, scegliete nella mappa speciale 
un settore libero e ripetete la proce- 
dura di salvataggio. 


Spiegazione delie routine^ 

Come avrete notalo 11 programma 
presentato è in buona parie struttu- 
ralo a subrouilnes. Questo è stalo 
fatto per cercare di renderlo Facil- 
mente leggibile e modificabili 


1) Copiatura della mappa del mi- 
ero drìvee svolge II lavoro a cui ab- 
biamo già accennato di copiare là 
mappa del microdrlvesedl riprodur- 
la In una matrice di 256 elementi. Il 
procedimento non è perticolfirmen- 
te complicato; può essere interes- 
sante la parta che fe la conversione 
del numero da decimale a binario; 
guardate vela. 

t\ Trasformazione da lettura a 
scrittura. Anche qui niente di com- 
plicato: si tratta di sapere quali so- 
no la locazione giusta e ii valore 
g lutato da scrivere con POKE. Mola- 
te che per ogni routine viene defini- 
ta una variabile che punta, a secon- 
da del casi, alla mappa del mlcrodrt- 
ve oppure al punte di inizio delle In- 
formazioni relative ai file In questio- 
ne (è passibile infatti avere più fife 
aperti contemporaneamente con 
mappe in diverse Ideazioni di ma- 
moria), 

3) Trasformazione da scrittura a 
lettura, è tutto come la routine pre- 
cedente, cambia solo il valore della 
POKE. 

4) leltura del numero dei settore 
nel quale è registrato il blocco dati 
che abbiamo in memoria. QueiÈ’uno 
che va aggiunto alla variabile (s) 
serve solo per fare In modo ohe ci 
sia una sola convenzione di nume- 
razione da settori, La variatili a fs) è 
quella che va passata aha routine 
che Ubera ri settore Interessato. 

5) Inserimento di EOF (End Of Fi- 
lali. Serva solo nel caso scriviate un 
settore che è l’ultimo dal fife* e non 
è obbligatorio metterla, Però se non 
io late, sappiala che lo Spectrum 
vede quel file come MON chiuso, 
con perdita di efficienza In certe 
■unzioni (per esempio DELFTE). 

6) Cancellazione di EOF. Queste 
viene richiamata regolarmente nel- 
la lettura random; quando leggale 
dei dati nell'ultimo settore e arriva- 




te alla fine dello stesso, se volete 
leggero un settore precedente il 
compoter vi scriverà che H file è fini- 
to anche se tentate di modificare le 
variabili per proseguire. Lo Spec- 
trum si comporta cosr vedendo In 
REGFLG un Z inasta trasformare 
questo 2 Fn uno 0 e tutto riprende a 
funzionare nego! armonie. 

7) Scrittura nei (ile del blocco Cór- 
rente nel settore giusto, A prepara- 
ne il settore giusto et pensano le al- 
tra polii Imes. Questa non fa atrro 
che far credere al computer che 11 
buffer è pieno: di conseguenza gli 
la scrivere sul file tutto età che c'è 
nel buffer. 

B) Lettura di un settore. Anche 
questa è una routine già vista In 
precedenza, e ench’es&a deve "in- 
gannare” Il computer, facendogli 
credere che ha già finito di leggere 
Il blocco corrente e che devo passa- 
re al successivo. 

9> Liberazione di settore. Questa 
è totalmente nuova e serva a mette- 
re a 0 (libero} il bit ohe Indica il set- 
tore puntato dalla variati le (s). Non 
è Complicata da capire, basta tene- 
re presente come è organizzata la 
mappa del microdrlve e ricordarsi 
che un settore è occupato se 11 cor- 
rispondente bit è 1. 

10} Scrive 1 nella mappa del mi- 
crodrive. Questa è forse la routine 
piu banale: mette a uno tutti I bit 
della mappa dei microdrlve. Va 
sempre utilizzala prima della routi- 
ne 9, come misura cautelativa. 

11) Ricerca. Implementa la parte 
finale delta lettura random (vedi 
Sinclair n. 12;. Chiede in Ingrèsso il 
numero del biocoo e la posiziona 
del dato, dopodiché va a leggere il 
dato stesso, 

l£> Setta a 512 il numero di carat- 
teri Inseriti. Lo scopo è di regolariz- 
zare il puntatore del buffer, che In 
certi cast perde II controllo a causa 


del nostri maltrattamenti,.. 

13} Controlla la lunghezza della 
stringa de Inserire nel buffer. Se Fa 
stringa fosse eoe! lunga da superar- 
ne i limiti, verrà scartata e compari- 
rà il messaggio ’lllegai quanllty ER- 
RORI”; Questa routine quindi serve 
ad evitare di scrìvere dati a cavallo 
di due seriori dal nastro, Ciò si è re- 
so necessario soprattutto perchè le 
noutines lavorano su un solo seriore 
per volta. Non sì tratta però di una 
limitazione grave: nel l'uso normale 
I record logici da scrivere saranno 
difficilmente più lunghi di 512 by- 
tes; Inoltre, tenete presente che io 
sfruttamento migliore delle memo- 
rie a settori si ha impiegando record 
logici là cui dimensione è un sotto- 
multiplo della dimensione del bloc- 
co fisico. 

14) Scrive nel buttar. Prima abbia- 
mo detto che si pub scrivere usan- 
do semplicemente PftfNWU; con 
Cui però a volte si hanno dal proble- 
mi. perchè aggiorna F coniatoti bèl 
dati inseriti. Abbiamo perdo inclu- 
so questa routine, che esegue una 
POKE della stringa D$ direttamente 
net buffer, L’input tramite questa 
rouiine è quello da preferire. 

15} Scrive sul nastro. È solo una 
sequenza di GOSUB, e serve a sem- 
plificare la vita a chi scriverà s suol 
programmi Includendo r accesso 
random: Infatti svolge automatica- 
mente tutte le operazioni necessa- 
rie a scrivere fisicamente II buffer 
sul nastro del microdrivè, 

Ora avete tutte le informazioni 
necessaria per farvi il vostro da ra- 
da se, utilizzando i microdrivè quasi 
come del dischi. In pratica, noe vi 
sono limitazioni su come deve esse- 
re costituito un database, ne! senso 
che per I dati non sloia piu vincolati 
alia memorie dello Specirum, 

Dopo aver lavorato per tulio que- 
sto tempo sul microdrivè, pensiamo 


che il Foro più grosso difètto noe sìa 
nella realizzazione o net funziona- 
mento ma nel prezzo del le cartucce, 
ancora aitino, anche se più ragione, 
voie di quello spropositato dei primi 
arrivi. 

Qualche esempio d’uso 

I ira bravi programmi che acco- 
diamo alle routines sono un primo 
esempio rii come si possono utiliz- 
zare tutte le primitive illustrate po- 
co sopra. Tutti e tre vanno fatti par- 
tire dopo aver resettato il computer, 
per esser sicuri di non aver dimenti- 
cato nella memoria qualcosa che 
potrebbe disturbare. 

Programma Uno 

il primo programma, il più sempli- 
ce, è un esempio dimostrativo e vi 
guida totalmente. Per cominciare 
crea un file composto di caratteri 
e vane mostra I primi 100. Poi 
chiede di scrivere qualcosa; accon- 
tentatelo scrivendo un po u di carat- 
teri, POÉ prèmete ENTER. Se quello 
che avete Introdotto vi basta come 
prova, premete di nuovo ENTEft. Se 
no Inserite degli altri caratteri e pre- 
mete ENTER. 

II computer scriverà nel (Ile, a 
partire dal carattere 101, in stringa 
che avete inserito; poi passerà in 
letture e vi mostrerà lutto II file con 
le modifiche da voi fati# (cereale di 
non esagerare con il numero dei ca- 
ratteri per non incorrer# in inconve- 
nienti). 

Programma Due 

Il secondo programma à Eonde- 
memtalmente slmile al primo, ma 
siete voi che scegliete dove scrive- 
re, Anche qui le solite raccomanda- 
zioni: non cercale di scrivere oltre 
l'ùHlmo settore generato dal pro- 
gramma (11 terzo, In queste esem- 
plo), e se vedete apparire la scritta 



it legai qusnUiy ERfìQR non preoc- 
cuparvi, dovete sedo Introdurre una 
stringa più sofìa. 

Programma Tra 

Il terzo è più complesso e versati- 
le, Prevede anche la possibilità di 
aggiungere un nuovo settore at file; 
questa funzione è di Solito chiama- 
ta APPEND, ed è un po' complessa; 
per comprenderne II funzionamento 
esaminate il listato avendo presenti 
le spiegazioni che abbiamo dato al- 
le varie roullnes. Ècco in breve co- 
me funziona la parte dalla linea 20 
alla linea 70: 

20 apre II file In lettura; analizza 
ta mappa del microdflv*; preleva le 
informazioni necessarie, 

25 controlla ao IL blocco corrente 
è un blocco di fine file (ricordate la 
descrizione delia variabili di siste- 
mai 

26 "spazzola" tutti I blocchi del fi- 
le e rimanda II controllo alta 25 

26 setta ìi numero di bytes del 
blocco córrente 

29 cancella l'EOF 

30 scrive questo blocco cosi mo- 
dificato sul nastro 

43 r esatta II numero di dati dai 
blocco 

50 inserisce l'EOF 

55 Inizi al Izza una variabile fittizia 

60 controlla nella matrice che 
contiene le Informazioni retai Iva al- 
ia mappa quale è il primo settore li- 
bero, e lo assegna alla variabile di 
canale adeguala. 

70 continua fino a quando viene 
soddisfatta la condizione. 

Dopo Che è siate trovato II setto- 
re libare ai passa alla routine di 
acri! tura per Ingerirà I nuovi dall nei 
nuova blocco. 


Conclusione 

Da notare che questi fllea, creati 
In modo random, sono comunque 
leggibili serialmente con PfiLNT 
INKEY$#4; questo perché 11 nostro 
sistema di gestione rendom non al- 
tera la struttura fisica del fites r ma 
solo li modo di accedervi, Ingannan- 
do il sistema operative. 

Arriverei quindi alla terza punta- 
ta, In cui descriveremo un esemplo 
pratico d'uso di queste routinos: un 
database che sfrutterà appieno tut- 
to le possibilità del miefodrwes. 



Polinomi 

dIG. Aldnle S- Salgano 


Breve programma per trovare ve- 
locemente le radici razionali di poli- 
nomi con grado massima 10Q. La 
soluzione di uno del più tediosi pro- 
blemi di matematica avviene inizial- 
mente per tentativi, sostituendo 
all'Incognita i quozienti ottenuti 
dalia divisione tra i divisori del ter- 
mine noto e quelli del coefficiente 
del termine di grado maggiore: una 
volta trovata la radice, il polinomio 
viene scomposto usando II metodo 
di Ftufflnl e viene cercata una nuova 
radice Sul polinomio-, di grado infe- 
riore a quella originale, risultante 
dalla scomposizione; si procede In 
questo modo finché non è più pos- 
sibile trovare radici nel sotto- 
col in orni o attoaie. 

I coef lleientl del termini del poli- 
nomio devono essere numeri interi, 
e bisogna Indicare con zero li coeffi- 
ciente di eventuali termini mancanti 
nei polinomio. i ìm a pag. esi 


Grafici 

polari 

di Stefano Pizzeghella 


Normalmente le funzioni sono 
rappresentate nella torma certestà- 
oa, secondo là quale ogni punto del 
plano è rappresentato da una cop- 
pia di numeri, oh* Indicano la di- 
stanza In orizzontale (x) e quella In 
verticale (yj dall'origine. 

Un punto nel plano può tuttavia 
essere rappresentato anche da una 


diversa coppia di numeri {r,t), dove f 
rappresenta la distanza assoluta 
del punto dal l'orìgine, e i l'angolo 
tra la retta congiucgente H punto e 
l'asse x queste rappresentazione è 
detta «in forma polare», e ha relazio- 
ne con la forma cartesiana per mez- 
zo dalle formule x=r*GOS t e 
y-r'SIN i 

Come nella forma cartesiana 
possiamo definire una variabile in 
funzione dell'altra per mezzo di 
equazioni delia torma y= f(x) (oppu- 
re con l'inversa x =%)), anche n*lla 
torma polare possiamo def inire fun- 
zioni del tipo r=Wt) (molto mono 
usata è la torma t=f(r) J. 

Per mazzo di funzioni espresse in 
ferma palare si riesce, tre Tauro, e 
tracciane grafici di funzioni non 
esprimibili in forme cartesiana, co- 
me la spirale o li cardioide. 

Il programma consento proprio il 
tracciamento di funzioni espresse 
In forma polare, previe Indicazione, 
oltre alla funzione, dei limiti inferio- 
ri e superiori dell'angolo t, Il passo 
^Incrementa dell'angolo stesso, e 
le dimensioni del grafico. 

Un completo set di comandi con- 
sente di cambiare I parametri 
del l'elaborazione, nonché di Ingran- 
dire o rimpicciolire II grafico, man- 
tenendo La densità del punti, c di 
stampare lo stesso grafico con tutti 
L parametri della funzione. 

!lrs a caq 2$: 


integrali 

doppi 

di P. Luigi Paccagnella 


Gli eludenti universitari delle fa- 
coltà scientifiche si trovano davan- 
ti, presto o tardi, gli integra li doppi, 
per mezzo del quali viene calcolato 
li volume compreso tra II grafico di 
una funzione a due variabili {quindi 
a sviluppo tridimensionale) e II pla- 
no di base (dove la z, cioè l'aifesza 
della funzione, è ugual* a zero). 
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Como chi mastica un po' di anali- 
si malematica potrà capir®, gli Inte- 
grati doppi sono li corrispondente 
tridimensionale degli integrati sem- 
plici, quelli di una funziona con una 
sola variabile {nella forme y « f («», 
che essendo a sviluppo bldlmenslo- 
naie (ee un plano x/y), calcolano 
l'area compresa tra la curva® Tasse 
delle ascisse. 

Nel caso bidimensionale, inoltre, 
si integra la funzione su un segmen- 
to, mentre nei caso tridimensionale 
(cioè con funzioni a due variabili) la 
regione su cui Integrare è una parte 
dei piano. 

L'anea da integrare deve essere 
normale (perpendicolare) a uno de- 
gli assi del piane [xoy)e deve esse- 
re delimitata, nel caso sla normale 
all'asse x, a destra e a sinistra da 
due rette, sopra e sotto da due fun- 
zioni delta variabile "x" (F superiore 
e F inferiore]!: il discorso è naturai- 
manta simmetrico, potendosi scanv 
piare la x oon la y nel caso l’area su 
cui integrare sia nonmale all'asse 
delle jr. 

Un integrale doppio si pud calco- 
lare coma Inlegrale, rispelto a una 
delle due varie bili, del l'integrale 
calcolato rispetto all'altra variabile: 
quindi II calcolo avviene in due fasi 
successive, in ognuna delle quali si 
calcola un integrale semplice {la 
prima volta quello della funzione da 
integrare, la seconda quello dell' In- 
tegrai e della prima fase); il proble- 
ma Odi essere II più precisi possibi- 
le nel calcolo degli integrali sempli- 
ci, naturalmente facendo gli oppor- 
tuni scambi di parametri tra un'Inte- 
grazione e l'altra. 

Il programma presentato risolva 
gii Integrali doppi in circa 35-40 se- 
condi, sia In forma cartesiana 
{usando nella formula x e y con il si- 
gnificato Solito), che In forma pola- 
re (nella formula si dovranno ancora 
usare * e y, ma II loro significalo è 
ora diverso: * al posto della /bela, x 
al posto del ro), con una precisione 
oscillante tra l'ottava e la decima 
cifra decimale, comunque molto 
buona. 

Il metodo usato appartiene al me- 
lodi gaussiani: un Inlegrale sempli- 
ce di una (unzione viene calcolato 
dividendo l'Intervallo di Integrazio- 
ne l-n un numero di parti a piacere 
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(dipende dalla precisione richiesta), 
molti placando- « valore della funzio- 
ne nei punti di divisione per oppor- 
tune funzioni di opportuni valori o 
pes) (m i da corti tipi di polinomi, 
come quelli di Lagendre) e somman- 
do tutti 1 valori che cosi si ottengo- 
no, N-él programma presentato, l'au- 
tore divide l'Intervallo in 12 parti e 
fornisce i pesi adatti al calcolo nel 
DATA di linea 20: attenzione a co- 
piarla esattamente: i pesi sono poi 
inseriti negli array wfl e Al- 
l'Integrale da A a B di una funzio- 
ne m è dato perciò dar 
0.5*{B-A)* somma (w(i)M 
(0.5 k(l) + 0.5*(B+ A))) 

(per f compreso Ira 1 e 12). 

Se uno del limili è Indefinito, l'In- 
tegrale tra il limite A e infinito è: 

2*&0mma({w(M(1-*-l<{l»t2)r 

ff(2flt + Kfl» + A+1» 

(per / compreso tra 1 e 12) 

Nel programma, alle richiesta del 
limiti d'integrazione, si possono In- 
serire limiti Infiniti semplicemente 
inserendo +/ o -l t a seconda che 
l'infinito sia negativo o positivo. 

Il calcolo avviene quindi a fette, 
poiché il valore dell 1 Inlegrale nei ta 
punti di divisione sull'asse delle x 
non è altro che l'Integrale della fun- 
zione, rispetto- alla y, compreso tra 
la (unzione supcriore e inferiore e 
con- la x corrispondente al punto di 
divisione (lo x e le y vanno- Invertite 
se II discorso riguarda ragioni d' In- 
tegrazione normali all'asse delle y'y, 
in ogni caso II metodo è spiegato in 
ogni testo di- Analisi Matematica (a 
chi è arrivato sin qùi senza problemi 
ne avré senz'altro ietto uno..,) 

L'uso del programma è immedia- 
to: abbondare sempre con le paren- 
tesi nelle funzioni se non si è sicuri. 

rifltspae-31) 




LIST 

control 


di Giovanni Corbelli 


Sulla scia dell'articolo di G. Carri 
apparso sul n. 7, ecco un altro pro- 
gramma eh*, sfruttando la caratte- 
ristiche del l'interfaccia 1, aggiunge 
utili comandi al basic dallo Spec- 
trum. 

E possibile listare un programma 
(su schermo o su slargante) solo 
tra le linee specificate, con ovvia 
comodità, a In più al può fare II CO 
PY <tel video a 24 righe (naturalmen- 
te questo comando dovrà essere 
dato da programma per essere uti- 
le, perche se dato In modo direno 
troverà, la udirne- due lineo dello 
Schermo bianche). 

Viene anche fornito un secondo 
programma, sempre in codice mac- 
china, che dà le stesso possibilità 
anche a chi non possiede l'Interfa- 
ce 1. Il modo dì operare à solo ac- 
cennalo sul manuale dell'Interfac- 
cia: se un comando non è accettato 
dal basic Spsctrum, con l'interfac- 
cia 1 collegata si controlla sa l'ope- 
razione richiede uno del nuovi co- 
mandi disponibili, ed eventualmen- 
te lo Si esegue. 

Se Invece è proprio un errore, 
cioè un'istruzione non prevista né 
dalla sintassi dello Speci rum nè de 
quella dell'Interfaccia 1, si salta al- 
la routine il cui Indirizzo è contenu- 
to nella variabile dì sistema VÉC- 
TOR (23735)6; v. SC n, 12 pag. 45). 

Se In questa variabile si motte 
l'indirizzo di una routine che abbia- 
mo scritto noi e eh* controlla la sin- 
tassi del nuovi comandi ohe abbia- 
mo definito, possiamo estendere a 
piacere II basic dello Spectrum con 
qualsiasi istruzione cl venga In 
monte. 

1 comandi presumati qui sono: 

COPY# (dopo II COPY bisogna 
battere un "caneel lotto", cioè il 
CHR$3S); 
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Bubble-sort 
in assembly 


di Luigi Callegsrì 


Sì copialo sii stampante tutte le 24 
linee delio schermo. 

LIST io LUST) seguiti da un aste 
ri3co, dalla linea da cui deve partine 
Il listato, e opzionalmente da IO 
{SYMBOL SHIFT + F) e dalla linea 
a cui terminare II listato; non spech 
flcando la linea di partenza vorrà 
presa come defauH la linea G; esem- 
plo: 

LIST *30 TO 70 lista le linee da 30 
a 70; 

LUST *30 IO 70 io stesso, m a Su 
stampante; 

LIST *30 lista solo la linea 30, co- 
sa molto utile in fase di correzione 
del programmi perchè consente di 
editare subito la linea errata e di 
continuare poi con l'esecuzione. 

LIST *TO 30 lista dalla linea 0 alia 
linea 30 

È ancora possibile specificare 11 
canale a cui deve andare il listato: 
OPEN #4, ”n", 0; LIST# 4, TO 30; 
CL0SE#4. 

Per chi non ha l'Interfaccia 1, gli 
stessi risultati sono ottenibili inse- 
rendo nei programma queste 2 linee 
{la RAMTQP sa rè State abbassata 
con CLEAR (sM), dove st è l'indi riz- 
zo di caricamento del codice mac- 
chine]!: 

10DEF FN cfl = USR(st + 68) 

20 DEF FN I (x,y,z p ) = U$R et 

fi AND USA FN I (s,a,b) Invierà II li- 
stato compreso tra le linee e e b al 
canale s (ricordiamo che il canale 
associato al video è il 2, alia stam- 
pante il 3), 

RAND USR ci} esegue Invece il 
COPY a 24 linee. 

li programma caricatore 1 è per i 
possessori di Interfaccia 1, il cari- 
catore 2 per gli eitrl. 

Il funzionamento detta routine 
per l'Interfaccia i è toni rollalo dal- 
la routine EXAM, Il cui Indirizzo di 
partenza à poste nella variabile di 
sistema VECTOR dalla routine INST 
{chiamata con RAND USH sf nel 
programma t alla linea ISO); EXAM 
controlla la sintassi dei comandi e 
Il ssegue; per quanto riguarda II CO- 
PY a 24 colonne, viene dapprima 
eseguito II COPY normale chiaman- 
do la routine dì ROM, poi si passa al 
COPY delle ultime 2 linee. 


Dopo aver visto,, nei precedenti 
numeri di Sinclair Computer, coma 
sla possibile utilizzare differenti al- 
goritmi per effettuare l'ordinamento 
di una serie di elementi, vediamo 
questa volta un 'implementazione in 
codice macchina* estremamente 
più flessibile e veloce, pur utilizzan- 
do I! metodo che In basic si rivela 
più tento, cioè 41 bubble-sort. 

Il programma basic provvede al 
caricamento del codice macchina, 
che può essere salvato su nasiro (o 
drive), pronto per essere inserito in 
altri programmi con un "LOÀD 1 " CO- 
DE. La routine è completamente ri- 
Ideabile, cioè può essere posta 
ovunque in memoria ed essere quin- 
di usata anche con 1SK. Inoltre è 
protetta da qualunque tipo di errore 
ed è praticamente Impossibile che 
mandi in "tilt” il calcolatore. 

Nessun parametro devo essere 
passato al linguaggio macchina 
con POKE: Il programma provvede a 
rintracciare in RAM la variabile alfa- 
numerica di nome al e ricavare ì da- 
ll relativi al numero di elementi da 
riordinare e alia loro lunghezza. I li- 
miti posti a questi due numeri sono 
solo dovuti alla capacità, di memo- 
ria deìlo Spectrum, teoricamente 
qualunque vai-ora da 1 a 65331 e aò- 
cettabile- 

Si noti che ta matrice al deve 
sempre avere due dimensioni, come 
di regola: la prima Indica il numero 
di elementi, la seconda la loro lun- 
ghezza. Nel programma dimostrati- 
vo presentato la matrice e predispo- 
sta per accogliere 1000 nomi,* lun- 
ghezza massima 29 Caratteri cia- 
scuno; alle linee 142071440 viene al- 
terato Il primo valore di mille con 


due POKE nella zona variabili che 
contiene quel parametro, affinchè 
risulti come se tosse stalo Imparti- 
to un comando DI M al (j, 29}, dove 
indica il numero di elementi effetti- 
vamente presente, Il '29' {la lun- 
ghezza] è lasciato immutato. 

Quando la routine assembly è 
staf a caricata {ai consiglia, come al 
solito, sopra le FtAMTOT), basta 
eseguire RANDQMfZE USR xXXXX, 
dove 'xxxxx' è l'indirizzo di carica- 
mento. Il microprocessore 260 si 
metterà al la vote, esaminando circa 
1400 caratteri al secondo, s fornan- 
do sullo scnqrmo II numero di nomi 
ancora da riordinare e una curiosa 
segnalazione colorata, dovuta al 
tatto che come memoria di lavoro 
viene utilizzata la 'mappa degli at- 
tributi colore', 

La routine assembly può anche 
riordinare In senso decrescente: è 
sufficiente effettuare POKE 
x 163,43 {essendo 'x 1 l'Indirizzo di 
inìzio del caricamento); per riportar- 
la al riordino crescente, dare POKE 
x + 163.5*. 

Si può inoltre eliminare la segna- 
lazione numerica, aumentando ulte- 
riormente la velocità di lavoro dei 
programma: 

POKE x+ 156,0 

POKEx+t5e,0 

POKE x + 157,0 

Se si tenta di lanciare il program- 
ma con RANDOMIZE USR x e qual- 
cosa non è stato preparalo come ri- 
chiesto {per esempio: non esiste la 
matrice a$, o non ha due dimensio- 
ni), si avrà un appropriato messag- 
gio di errore e II ritorno istantaneo 
al normale editor del basic. 

(lai a pa$ Si) 
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Un divertente giochino intera- 
mente in basic, adatto anche ai 
possessori della versione 19K, su 
quefta che qualcuno chiama ancora 
notn'e art (noi la confineremmo vo- 
lentieri nei vtdaogejTies). 


I autore è un ragazzo dr soli f4 
anni. Tutto quello che bisogna (are 
0 sopravvivere 3 round contro it 
puglle-Spectruim {che naturalmente 
è nero ), spostandosi a destra e a 
sinistra sul ring con i tasti «N» e 
"Mx, in su & in qiu con i tasti «o- e 
«A.., e colpendo l'avversario coi ta- 
sto -W». Arri nkzio sr selezionano la 
velocità di esecuzione e »ia prontez- 
za di riflèssi» dello Spectrum (indici 
da 1 a 3, dove 1 sta per veiooe, 2 per 


medio e 3 per tonto), poi si combat- 
te per i 3 round e alla line ohi ha col- 
dito piu volte l'avversario vince, ma 
sa un boxeur è colpito più di 75 vol- 
te viene «contato* con un fischio e 
può finire K.0. 


Tra un round e altro ci vengono 
spiritosamente mostrate le condi- 
zioni fisiche di ogni combattente, d> 
cui viene visualizzato il viso più p 
meno inceronato: ricordate che at- 
taccare sempre può far mala, quindi 
cercate di non prendere tulli i 
colpi... 
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Microdrlves 

random 

7997 STOP 

7998 REM ROUTINES DI SCRITTURA 

RANDOM SU MICRODR3VES 

7999 REM <C> 1985 ZONlN fe BULLA 

PER SYSTEMS EDITORI ALE 
0000 REM 1= occupato 0=1 1 ber O 

8002 DIM p<256) 

8003 LET m=23792 

8005 FDR *=0 TO 1 

8006 LET d=P£EK 
8010 FDR C” 1 TO B 

8015 LET p(c+U#a>)=d/20INT (d/ 

2 > 

8020 LET d-INT (d/2) 

8025 NEXT c 
8030 NEXT x 
8040 RETURN 

8048 

8049 

8050 REM trasf. a scrittura 
8060 LET can=23B44 

8070 POKE 24+can,2SSs RETURN 

8077 

3075 

8079 REM trasf. a lettura 

8080 LET can= 23844 

8090 POKE 24+can *254: RETURN 


8099 

8100 
□ 110 
8120 
8122 
8130 

8140 

8141 
8150 
8 1 60 
8165 
8168 
0169 
8170 
8175 
S1B0 

8190 

8191 
8200 
8205 
8210 
255; 
8220 
8221 
8250 
8255 
8260 
*44 ì 
8290 


REM lettore del record 

LET can =23844 

LET s=l+PEEK (can+411 

REM +1 e J per la matrice 

RETURN 


REM ine. EOF 

LET can=23844 

POKE can+67,2; RETURN 


REM cancella EOF 

LET can =23044 

POKE can+67,0^ RETURN 


REM qo to pr int in file 
LET cari =23844 

POKE can + 12,1: POKE can+U , 
PR1NT 44; 11 " ; : RETURN 


REM gp ta read in file 
LET can=23044 

POKE can+12,3; LET d*=INKEY 
RETURN 


8291 

9000 REM liberatore di settóri 

9001 REM richiesta varia) 

9005 LET m=23792 

9006 LET sm=5-l 

9010 LET sl=m+(INT (sm/SM 
9020 LET s2=255-2^(sm-B#INT (sm/ 
81 > 

9B30 POKE sl,s2; RETURN 

9048 

9049 

9050 REM generatrice di 1 
9060 LET nr=23792 

9070 FDR c=m TO m+31 
9080 POKE c ,255 
9090 NEXT c 
9095 RETURN 

9098 

9099 

9100 REM cercatore del dato 

9101 REM richiesto N. blocco (b> 

9102 REM e N. del dato <d> 
9105 LET can =23844 

9110 POKE can+13,b-l 
9115 SO SUB 8250 

9120 POKE can+ il* (d— 256+ (INT (d/ 
256 ) ) > 

9130 POKE can+12 T tINT (d/256)) 
9140 RETURN 

9148 

9149 

9150 REM setta n- dati a 512 
9 I 60 LET can=23B44 

9170 POKE (can+69) T 0s POKE (can+ 
70) ,2 

9174 RETURN 

9175 

9176 

9200 REM CONTROLLA LUNGHEZZA 
9210 LET LAN -2384 4 
9220 LET chtayte=C25ó#FEEK (12+ca 
n ) ) +FEEK (11+can) 

9240 IF t (chbyte+CLEN d*) ) >512) 
THEN PRINT "il legai quanti ty ER 
ROR“; LET d$= NM 
9250 RETURN 
929B 

9299 

9300 REM scrive nel buffer 
9310 LET can=23844 

9320 LET chbyte=<256*PEEK U2+ca 
n ) ) +FEEK (11+can) 

9330 LET ld=LEN à* 

9340 LET 5tart=can+S2+chbyte 
9350 FOR C=start+1 TO start+ld 
9360 LET d=CODE d*<c-start) 

9370 POKE c-1 ,d 
9300 NEXT c 

9305 LET stim=chbyte+ld 

9390 POKE can+ll 1 5um“256*(INT (s 

um/256) > 

9395 POKE can+12, INT (sum/256) 


S«ielwfCantJU»f-Z7 


9396 RETURN 
9390 

9399 

9400 REM PROC. DE WRITE 

9410 SD SUB 8050: REM SCRITTURA 
9420 GO SUB 9050: REM g en 1 
9430 SD SUB 8100: REM pds, reco 
9440 GO SUB 9000: REM lib. ree, 
9450 SO SUB 8200 ; REM go print 
944*0 GO SUB 8079; REM lettura 
9470 RETURN 


0>REM *** PROGRAMMA UNO *#* 
t LET a*= J ’ *###### # ########### 
#* a a a a a a##* aa a##a aa*a* a a a### a##a 
a a## a####* a a### aa*a a aa##*#a a#*a a 
#*a#aaaaa###aa*#a M 

2 OPEN #4; "m H ; tifile" 

3 POR x-1 TD 15: PRINT *4;a$* 

4 NEXT x 

5 CLOSE #4 
7 

S 

9 OPEN 44; 'm"$ 1 ; 11 f i le" 

10 POR x = l TO 100 
15 PRINT INKEY$#4; 

20 NEXT x 

30 

31 

60 PRINT ;"5CRIVI QUELLO CHE 
VUOI E POE PREMI ENTER DUE VO 
LTE" 

70 INPUT “scrivi; “;d$; IP àì= 
THEN GO TO 0B 
74 GO SUB 9200 
76 GO SUB 9300 
78 GO TO 70 

80 GO SUB 9400: REM urite 
90 CLOSE #4 

100 OFEN #4; "ai”; 1; “file" 
i 10 PRINT INKEY*#4; 

120 GO TO 110 


0>R£M *** PROGRAMMA DUE *»* 

1 let a ^ j, aaa#aaaa#aaaaa##aa# 
## a a#*# a a ##a a #*## 4 ###a a## ## a a### 
a a a ##a a aa#a a######** a a#a a a a aaaa a 
a # a a a###a aa*# a### - 

2 OPEN #4; “m"; Ij "file" 

3 POR x-l TD 15 : PRINT a4:a$; 

4 NEXT x 

5 OLOSE #4 

7 

8 

9 OPEN #4; "m" gl; "file 11 
10 PRINT "PREMI s QUANDO TE VU 
01 FERMARE N 

12 PRINT INKEY$# 4 ; 

15 IF INKEY*="s H THEN GO TO 6 


17 PAUSE 3 
20 GO TO 12 

30 

31 

60 PRINT “SCRIVI QUELLG CHE V 
UOI E POI PREMI ENTER DUE VGL 
TE" 

70 INPUT "scrivi: " ; d$: IP d*- 
““ THEN GD TG 00 

74 GO SUB 9200 
76 GO SUB 9300 

75 GO TO 70 

30 GO SUB 9400: REM unte 
90 CLOSE a4 
100 GO TO 9 


0>REM **» PROGRAMMA TRE *** 

i let a*-"###aaaaaaaaa#aaaaa# 



aaaaaaa##########": let can^ 23 B 4 


4 

2 OPEN #4; "m"; 1; "file" 

3 POR x=l TO 15: PRINT #4;a$; 

4 NEXT x 

5 CLOSE #4 

7 

8 

10 INPUT "vuoi modificare o in 
seri re un nuovo blocco ? <m/i) 
";d* 

15 IP d£="m" THEN GD TG 100 
20 OPEN #4; H m“; 1; “file"; GD SU 
B 8000: REM mem. settori liberi 

25 IF PEEK £can+67>=2 THEN GO 
TO 27 

26 GD SUB 8250: GO TD 25 

28 GO SUB 9150: REM seti, 6. 

29 GD SUB 8170: REM Cane, EOF 

30 GD SUB 9400: REM urite 
40 80 SUB 9150: REM sett. n* 
50 80 SUB 8150: REM ins . EOF 
55 LET X=3 

60 IF P<X*=0 THEN PDKE tcan+4 
1) T x: 80 TO 160 

70 LET x-x+I; GO TO 60 

98 

99 

100 OPEN #4; "m"; 1; "f ile" 

U0 PRINT "FREMI s QUANDO TI VU 
OI FERMARE " 

120 PRINT INKEY$#4; 

125 PAUSE 2 

130 IF INKEYS^'s" THEN GD TO 1 
60 

150 GD TO 120 

158 

159 

160 PRINT "SCRIVI QUELLO CHE 
VUOI E POI PREMI ENTER DUE VO 
LTE " 


170 INPUT 'scrivi: IF 

THEN GO TO 180 
174 ED SUB 920® 

17* GO SUB 9300 
17G GO TO 170 

IB0 60 SUB 9400: REM «ri te 
190 CLOSE #4 
200 ED TO 9 


Polinomi 

10 REM 

EQUAZIONI 

by Giuseppe Alcini 
& 

St etano Sai sano 


40 

REM 

inizializz azioni 

41 

DIM 

s<100) : 

LET p = l 

42 

DIM 

t f 100) 

LET q-1 

45 

DIM 

a ( 1 00 > 


47 

DIM 

b 1100J 


50 

DIM 

U«100» ! 

LET u=l 

100 

PR l NT H ***** ******* ***** *** 


** **** * * ****** »*** * * EQUA Z I ON I 
******************* by STIE 
**** **** *** * **** ********* *** * * * 


***********#" 


105 PRINT 

107 REM inserimento dati 
110 INPUT "grado equazione " ; gr 
IF gr< 1 THEN GO TO 110 
120 LET p2=l 

130 INPUT AT l,0 5 “>i ,f ;AT 0,1^ VAL 
" (gr+l> -p2“ ; AT 1,3;"= " ;a(p2ì 
135 PRINT J< x A,, ;VAL "Cgr+U-pS' 1 ; 


= ,r ;a«p2> 

13? LET p2=p2+l 

140 EF p2<-gr THEN ED TO 

145 INPUT "termine noto= " 


130 

;atp2 


150 FRI NT 'termine noto= J1 ;atp2 


153 LET tn^aip2) 

154 3 F tn=0 THEN LÉT p2=p2-l: 
GO TG 153 

15? REM divisori t-noto 
160 FDR f =ABS tn TO -ABS tn STE 
P -1 

162 ir F = 0 THEN NEXT F 
1*3 IF tn/F^INT Ctn/f) THEN LE 
T 5*p)^F: LET p=p+t 
1*5 NEXT f 

16* REM divisori 1 coeFF - 
1*7 FDR F^ABS a(i) TD 1 STEP -1 
1*9 IF &U>/F = INT «a«U/F> THEN 
LET t<q)=Fs LET q^q + 1 
171 NEXT f 

175 REM calcolo soluzioni 


17* PRINT s PRINT ************* 


177 PRINT 

178 PRINT "soluzioni; 

179 POR n=l TD p-1 t FDR o^l TO 
q-i: LET r=s!n>/t<o> 

1B0 FOR c=l TO u-1 s IF r=u<C) T 
HEN GO TO 204 
IBI NEXT c 
1S3 REM ruffini 
1B4 FOR i=2 TO p2 
185 LET b(lì^d) 

1?0 LET b ( ì > - < b £ ì - 1 ) *r J +a ( i > 

200 NEXT i 

202 IF ABS lbii-1) ><0.000001 TH 
EN GO SUB 250 

203 IF u>gr THEN 60 TO 219 

204 NEXT dì NEXT n 

20B IF p2<=gr THEN PRINT TAB 1 
1 ; 0: GO TO 219 

210 tF u=l THEN PRINT TAB 11;™ 


219 PRINT : PRINT ■'****#***#*-** 


220 PAUSE 100; PRINT #l;' r prem 
i un tasto": PAUSE 0: IF 3NKEY$- 
"e" THEN STOP 
222 RUN 

250 REM semplif, Se stampa 
260 LET u(u)=r; LET u=u+l 
270 IF r=3NT (ri THEN PRINT TA 
B 1 1 ;r i RETURN 
280 LET a=stn): LET b=Uo> 

285 IF a-1 THEN BO TO 320 
290 FOR i=«ABS fa* < a< b ) ) +AB5 tb 
* (b<a) )i TO 2 STEP -1 
3O0 IF (a/i^INT «a/in AND <b/i 
=sINT THEN PRINT TAB U;a 

/i : " /" ;b/i ; RETURN 
310 NEXT i 

320 PRINT TAB ii;a; ,f /";b 
330 RETURN 


Grafici polari 

1 REM GRAFICI DI FUNZIONI 
IN FORMA POLARE 
by SteFano Pizzeghello 
1MCJ 1985 # 

9 REM 

10 REM input dati 
12 LET flag=0 

15 PRINT TAB 1% INVERSE 1; BRI 
GHT 1;M N P U T DATI" 

20 PRINT AT 4,0; FLASH 
FLASH 0; " - Funzione F C " ; CHR$ 14 
4 ; ” > = " 

25 INPUT 11 (T sostituisce " ; CHR 
* 144; - ? LINE F*i IF F*="“ TH 
EN BEEP 1 T — 15: PRINT #0; FLASH 


Sinclair Gompusar - 29 


t;' 1 Funzione non definita": PAUSE 
150: GG TD 25 
26 PRINT TAB 4;f*' 

38 IF fi ag=l THEN GO TO 1 .00 

40 FRI NT AT 0,0; FLASH 1; '2"; 
FLASH 0; 14 - Intervallo dell'anqo 
lo 4I ;CHR* 144; 41 : "TAB 4; "est rem 
p Sinistro; N ; ; INPUT LINE all 
IF a*» 1 " 4 THEN SO TG 40 

41 LET tl=VAL al: PRINT al 

42 PRINT AT 10,4; "estremo dest 
r o : " | ì INPUT LINE bis IF bl- 
,MÌ THEN SO TO 42 

45 LET t2^VAL b* 

50 IF t2<=tl THEN BEEP 1,-15: 
PRINT 40; FLASH 1;"I1 secondo e 
stremo deve essere maggiore del 
primo; rei nserisci " ; FAUSE 1 50 
; GO TG 42 
55 PRINT b* 

SS IF f lag=l THEN GO TO 100 
60 PRINT AT 12,0; FLASH 1; "3"f 
FLASH 0;" - Shift dell angolo: 

n m 

* 62 INPUT "(Valore cOrrsi gl i ato: 
,07?" r LINE si; IF si™ 41 " THEN 
GD TO 62 

65 LET st=VAL si: IF st<-PI/6B 
OR 5t >=F 1/30 THEN BEEP 1,-15: 
PRINT 40; FLASH 1 ; "Beve essere c 

ompreso tra PI/óB e PI/3B 

H i PAUSE Ì50t GO TO 62 
75 PRINT s* 

70 IF flagri THEN SO TO 100 
90 PRINT AT 16,0; FLASH J;"4 14 ; 
FLASH 0;" - Intervallo ascissa; 
i 

SS INPUT " Inserire sol o il vai 
ore posi ti vo"; asc: IF asc<=0 THE 
N BEEP 1,-15: PRINT #0; FLASH 1 
; "Deve essere positivo!"; PAUSE 
150: GO TD 90 
86 PRINT asc 

09 REM calcolo delie dimensio- 
ni dello schermo 
70 LET or cimase* 175/255 
05 PRINT AT 17,4; "asse x", "ass 
e y ,4 'TAB 4 ; -asc , -ord r T AB 4;asC f O 
rd 

100 PRINT 40; ‘Confermi i dati? 
s/n" : PAUSE 0: INPUT IF INKEY 
*="S" THEN GO TD 1000 
200 REM correa i one dati 
210 PRINT 40; "Correggi tutto? 5 
/n"; PAUSE 0: INPUT IF INKEY* 
^"5" THEN RUN 

220 LET flagri: PRINT 40; " Inser 
isti il n, che corrisponde al da 
to errato": PAUSE 0: LET r*=INKE 
VI: INPUT ; 

225 IF r*< "l" GR r*> 4, 4 IH DR 
41 THEN GO TO 220 
230 GG SUB G500; GO TO 20*VAL r 

* 


30 ’ erteti cameni»* 


1000 REM inizio elaboraci one 

1001 CLS : PLOT 0,87: DRAW 255,0 
; PLOT 127,0: DRAW 0,175 

1002 IF asc<=l THEN GG TO 101? 

1003 LET umpix=INT < 1 20/asc ) 

1004 POR f-127+binpi* TO 255 STEP 
unpix: PLOT f,S4: DRAW 0,6: NEX 

T f 

1005 POR f*127-unpix TO 0 STEP - 
unpix; PLOT f,B4: DRAW 0,6: NEXT 

1006 FDR f=87+unpi>: TO 175 STEP 
unpix; PLOT 124, fi DRAW 6,0,- NEX 
T f 

1007 FDR f =07— unpi x TO 0 STEP -lì 
npix: PLOT 124, f: DRAW 6,0: NEXT 

f 

100G POR f=127+unpix/2 TO 255 ST 
EP uopi*: PLOT f,0ÓJ DRAW 0,2: N 
EXT f 

1009 FQR f =127-unpix/2 TO 0 STEP 
-unpix: PLOT f ,86; DRAW 0,2: NE 

XT f 

1010 FOR f=S7+unpix/2 TO 175 STE 
P unpix: PLOT 126, f: DRAW 2,0; N 
EXT f 

1011 FOR f =B7-unpix72 TO 0 STEP 
-unpix: PLOT 12ò,f: DRAW 2,0; NE 
XT f 

1019 PRINT AT 0,17;-Y";AT 12,31; 

" X M ; LET mol=127/asc 

1020 REM tracciamento 

1025 FOR f=tl TG t2 STEP at 
1 030 LET a = 1 27 +mo 1 *COS # *FN f ( f > 
1045 LET y^87+mol*SIN f*FN f <f J 
1050 IF x<0 OR x >255 GR y<0 OR y 
>175 THEN NEXT fj IF f >t2 THEN 
GO TD 1100 
1060 PLOT x ,y 
1000 NEXT f 
1100 BEEP *5,12 
2000 REM menu ' 

2010 PRINT MB; FLASH 1;"C"; FLAS 
H 0; "opy FLASH 1 ; l4 M" ; FLASH 0 
; "odi fica rapporto 14 ; FLASH 1;"R 
■; FLASH 0; "un “ ; FLASH 1; M S IJ ; F 
LASH 0;"top 44 : PÀUSE 0: LET o*=I 
NKEYI; INPUT ; 

2015 IF oF >"C " AND olO^M" AND 
o*<>"R" AND □*< >"S" THEN BEEP 1 
,-15: GO TO 2010 

2020 GO TO (7000 AND a*- “ C" > + (25 
00 AND Q*= ,4 tT 3 + (9995 AND q*= ,, S ,, > 
+(9015 AND aT='R" > 

2500 REM scelta rapporto di 
ri produzione 

2505 INPUT "Inferisci il rapport 
o H ;rapj IF rap<=0 THEN BEEP 1, 
-15: PRINT 40; FLASH 1 ; "Deve ess 
ere positivo!": PAUSE 150: GO TO 
2505 

2520 PRINT 40; FLASH i;"3 4 \; FLAS 
H 0; "ngrandi menta FLASH 1;"R 1 ' 

; FLASH 0; "i due ione" : PAUSE 0: L 



ti o*=INKEY*i INPUT ; : IF □$<>"! 
'■ AND a*<>“R" THEN BEEP 1,-15: 
GO TO 252 0 

2530 IF □*- B I" THEN LET ra p«l/r 
ap 

2550 REM aggiarnamentù 
2600 LÉT asc=asc#rap: LET ord=as 
c*l 75/255: LET st=st*rap 
26 10 SO TG 1000 
7000 REM copy dello schermo 
7005 PRINT #0; FLASH 1;"N“; FLAS 
H 0; "astro o "* FLASH ij ,r S"; FLA 
SH 0;"tanipante? ,r : PAUSE 05 INPUT 
;; IF INKEYS^N’ 1 THEN GO TO 71 
00 

7010 LPRINT TAB 5; INVERSE 1;“GR 
AFICO DELLA FUNZIONE": LPRINT 

7012 LPRINT "f t " : CHRi 144; " 

*: LPRINT 

7013 LPRINT "Intervallo 11 ; CHR* 1 

44; " a£,b$ 

7015 LPRINT “Intervallo swjsss: 
" x -asc , asc 

7020 LPRINT “Intervallo ordinata 
: “ * -ard , or d 

7025 LPRINT "Ghift angolo " ; CHR* 
144; "i " ; et t LPRINT 
7030 COPY : PAUSE 150; DEEP -5,1 
2: GD TO 2000 

7100 INPUT "Nome dello schermo?” 
LINE n*; IF rr$="" OR LEN n*>10 
THEN DEEP 1,-15: GU TO 7im 
7110 SAVE n*SCREEN* i REEP .5,12 
: PDKE 23658 , B: GO TO 2000 
0500 REM subroutine “cancella" 
S520 PRINT AT 4*VAL r*,0s 
8530 FOR f=0 TG 127: PRINT CHR$ 
32;: NEXT f 
0535 RETURN 

9000 REM presentazione 
9005 BÉEF .5,15: BEEF 1,20: PUKE 
23609,20: BGRDER 0: PAPER 0: IN 
K 7: CLS : FRINT AT 8,9; INVERSE 
1; BRIGHT 1; N F UN 2 I OH I ”;A 
T 10,9; "IN FORMA POLARE "pAT 18,3 
; INVERSE 0; BRIGHT 0; "7 Stetano 
Pi zzeghel lo 1985” 

9010 REM tar i cadente carattere 

grafico; def funzione 

9011 PAUSE 3U0: RESTORE 9020: FO 
R f=0 TO 7: READ d: PGKE USR "a" 
+f,d: NEXT f r POKE 23658,8 

9015 RUN ; DEF FN f<t)=VAL f$ 
9020 DATA 0,40,74,124,72,72,49,0 
9990 CLEAR : SA VE *graf palar i “ L 
INE 9000 
9995 STOP 


integrali doppi 

1 REM PROGRAMMA INTEGRALI 
DOPPI 


1985 (CI by PIERLUIGI 
PACCAGNELLA 

10 PGKE 23609,301 DIM k C 12) : D 
Ili m ( 12> 

20 DATA ,1252334085,-367831498 

9 . . 5873 179542. . 769902674 1,-90411 

72563 .. 981 5606342 , - 2491470458 , . 2 

334925365 . . 2031674267 . . 160078328 
5,-1 069393259 , . 0471753363 

30 FGR 1 = 1 TO 6: READ Mi): LE 
T Mi+6) =-k Ci > : NEXT i 

40 FGR ì — 1 TO 6: READ w(i)s LE 
T hHi+6>«i4<i > : NEXT i 

50 BRIGHT I: BGRDER li PAPER 1 
: INK 7: CLS 

60 PRINT BRIGHT 1; 

" PROGRAMMA PER CALCOLO INTEG 
RALI DOPPI , NORMALI RISPETTO 

ALL'ASSE X (se fosse norm 
ale rispetto all'asse Y, inveri 
ire X con Y nelle funzioni); 11 
70 PRINT ' 

H L'INTEGRALE E' CALCOLATO DA A 
A B RISPETTO A X , E DA finf A 
f sup RISPETTO A Y 
Cper dire infinito impastare 
+i oppure -i > “ 

90 INPUT ”A«“; LINE a*,"B="; L 
INE b$ ‘ ' “f inf =“ ; LINE i$ r “fsup= 
LINE s*' '"FlXt/J*"; LINE f* 

90 LET z=ls IF OR a*«" 

-i“ THEN 80 SUB 1Ò0: 60 TO 150 
100 LET a=VAL ai: L£T b=VAL bT: 
110 LET somma=0: POR i = l TO 12: 
LET xMb-a)*„5*Mi>+<b+a>*.5; L 
ET finf «VAL i$: LET fsup«VAL s$ 
120 80 SUB 230 

130 LET so(nma=sa(iHH i a-‘-sum* i w ( i ) : N 
EXT i 

140 LET sommai somma* <b-a) *. 5 

150 PRINT IL RISULTATO E'ì 

H ; somma : STOP 

160 IF a$="-i“ AND b*-"+Ì" THEN 
GO TO 220 

170 IF a*=“-i“ THEN LET 
+b Si LET z=-l 

1B0 LET a=VAL a*: LET somma=0: 
FOR ì=i TO 12: LET x=a-l+2/ ( 1+k i 
i)): LET LET finf=VAL i$; 

LET f sup «VAL s* 

190 GO SUB 230 

200 LET 5omma=5omma+5Uflt*» C i ) / < i 
1+k ti ) ) A 2) i NEXT i 
210 LET somma=somma-*2i RETURN 
220 LET a*="0”: SO SUB 160: LET 
5S-Sàmwa: LET àT="-X M : LET b$=" 
0”: GO SUB 160: LET somma * somma* 
se; GO FO 150 

230 LET Sum«0: FOR j«l TO 12 ! L 
ET y= Cf sup-f inf ì *. 5*k ( j ) +■ tf sup+f 
inf ) 5 

240 LET x=k* 2: LET sum«sum+ini t j ) 
* (VAL f$>: NEXT J 


250 LEI sum=sum* £f sup-4inf >*. 5 
260 RETURN 


LIST controllato 

1 REM U5D di "extend" 

SENZA 1 interi acci a 1 

2 DEF FN 1 ( s , x , y) “USR Et: DEE 

FN c £ ) “USR <st+68ìì R 

EM 

LA RAMTOP DEVE ESSERE PQST 
A 

A sW 

CON ,L CLEAR £st-i) ", 
dove "st " deve essere 
MINORE di 65294 

3 REM Per il listato dalla 
linea "a" alla linea "b' 1 
sul canale "c" dare : 

RANDQMIZE FN ltc ( a*b> j 
( c=2 per il listato sul VIDEO * 

c=3 sul 1 a stampante > 

Per iì COPY a 24 linee dare 
RANDGMIZE USR cO - 

5 REM ===>>» EXTEND. S 

6 REM 

10 IF PEEK 237330255 AND PEEK 
23733 < > 1 27 THEN STOP 
20 LET s t =65294- 3276 B*< PEEK 23 
733=127 ) 

30 CLEAR st-ls LET -st-PEEK 237 
30+256*PEEK 23731+1 

40 LET a*= J, 2a0b5c7cb520B2£=f090 
604231 0+d 7 ee5od0 U 6e 1 060B23 10f d4 
e237ee 634 47 c 5060723 1 04 de 1 5e23 7 e e 
634 5 7 d 5606 922 495cc d 6e 1 9c 1 03c5c 1 c 
d B0 1 9d 0c 5c d 55 1 Sd 7 1 S4 44 306c0c 3af 0 
e" 

60 IF LEN af< >140 THEN GD TO 
7000 

70 LET ck.1-0: LET ek2=0 
90 FQR i=0 TO 73 
90 LET P-CODE a* i 2*t +1> -40-39* 
£a*£2*i+U >"9") 

100 LET 1=CDDE a$<2*Ì+2>-4S-39+ 
£a$£2*i+2) > ™ 9" > 

110 LET v=h*!6+l 
120 LET cfci=ekl+T+hs LET ck2=ck 
2+ £ i + 1J *v 
130 POKE st+i*v 
140 PRINT #0;AT 1 , 0; i : NEXT i 
150 IF c k 1 < >909 OR ck2< >334360 
THEN 00 TO 9000 
160 INPUT "Vuoi salvare i codi e 
i 7 LINE al; IF a*="s" OR a*= 
"5" THEN SAVE "CODE EXTEND"CODE 
st *74: VER I FY "CODE EXTEND "CODE 

170 PRINT "EXTEND e' in memoria 


a partire da "jst 
190 STOP 


9000 

PRINT 

"ERRORE DI 

CARICAMENT 

□ DAT 1'“" 

CONTROLLA 

MEGLIO" 

9010 

STOP 



FFB £ 

2MB 5 C 

LD 

HL* (#5C0B) 

FF lì 

7 C 

LO 

4,K 

FF 12 

E5 

OR 

L 

FF 1 3 

2002 

JR 

N l * L FF 1 7 

FF15 

CF 

RST 

e 

FFU 

09 

0£F6 

#09 

FFI7 

£□04 

IFF17 LD 

B ,#04 

FF19 

23 

LFF] 9 IUC 

«L 

FFlft 

10FE 

DJ NZ 

LFF1? 

FFEC 

7E 

LD 

fl , (HL) 

Ff 1B 

E5 

PU5H 

HL 

FF1E 

coeni 

CALL 

#1601 

FF2 1 

£1 

PDF 

HL 

FF22 

0Ò0S 

LD 

Bì #00 

FF24 

23 

LFF24 INC 

HL 

FF25 

10FB 

DJ NZ 

LFF24 

FF27 

4E 

LE 

D, IHU 

FF2B 

23 

INC 

HL 

FF29 

7E 

LE 

A, (HL) 

FF2A 

E43F 

AND 

#3F 

FF2E 

47 

LD 

B* A 

FFZD 

C5 

PUS HI 

BC 

FF2E 

0407 

LD 

È, #07 

FF30 

23 

LFF 30 INC 

HL 

FF3 1 

10FD 

DJNZ 

LFP30 

FF33 

et 

POP 

BC 

FF34 

SE 

LD 

Si (HL ì 

FF35 

23 

INC 

HL 

F F3£ 

7£ 

LO 

A, (HL) 

FF37 

E63F 

AND 

t3F 

FF34 

57 

LD 

D* A 

FF3A 

D5 

PUSH 

DE 

FF3B 

£0 

LD 

H*B 

FF3C 

£9 

LD 

L*C 

FF3E 

22495C 

LE 

(#50491 ,HL 

FF40 

C 0 6 E 1 9 

CALI 

# 1 9 6 È 

FF43 

CI 

POP 

BC 

FF44 

03 

INC 

BC 

FF45 

C5 

. PUSH 

BC 

FF4b 

CI 

LFF4t POP 

BC 

FF 4 7 

CD901? 

FALL 

11990 

FF4A 

DB 

FTET 

NC 

FF4B 

C5 

FUSH 

BC 

FF4C 

CD551S 

DALL 

IfflSS 

FF4F 

D7 

RST 

#10 

FF50 

a a f 4 

JR 

LFF 4£ 

FF52 

F3 

DI 


FF53 

a-ice 

LE 

B,#C0 

FF55 

C3AF0E 

JP 

#0EAF 

7 

REM == 

==>>> EXTEND. C 

e 

REM 



10 

IF PEEK 237330255 AND PEEK 


23733 0 127 THE N S TOP 
20 CLS #: LET st =65156-32768* £ 
PEEK 23733=127) 


32 - Sinclair Ccnipylpr 


30 CLEAR at-li LET st^PEEK 237 
3G+256*PEEK 23731+1 

40 LEI à*-"c5c*31ri210cBB0922b 
75cc9d7 18B0f ef 02S0f i eeì 2007* ei i 2 
BùaeZf 00 1 3e03i 9023eH2Fd3£B20Bd73 
0252B03d7Bl I 6d72B00d77020380Bd7 1 
BBS f e2(i2SB4f @3b202 1 d720OBT e2a28 1 
Cf ecc20 l<Sd72000d7S21 eedb705d799 1 
e78e£3*47c50 1 B00B1 845e7BBd72BB0tJ 
782 lcfecc 280a f *3a 11 

50 LET b*=''2853feBd2e4f iaead72 
00Bd 782 1 c c db 705 1 8 1 9d 72000f e232Bd 
8d72BB0cd b 7052 1 c 05006 1 0+ 3d 7b 20ec 
3c 1 05d799 W8eù3f 47c5d799 1 e78eÈ3 
I É»7£922495ed7é»ei9c 1 B3c5c ld7B0 i 9d 
2c 105c5d755 1 Bd7 1 BB0 lSf 0cdb?05d79 
9 1 e7Se63f 47c5i 8d5" 

60 LET c*=a*+b$? IP LEN C*<>42 
4 THEN GO TO 9000 

70 LET ck 1 =0: LET ck2=0 
80 POP i=0 TO 211 
9B LET h=C0DE et (2*1 + 1) -40-39* 
<c$<2*i+l > >"9" > 

100 LET 1=CQDE c*t2*i+2J -40-39* 
Ec*I2*i+2) > "9" > 

110 LET v=h*lò+l 

120 LET ck I— ck I+l+hi LET ck2»ck 
2+ ( i + 1 ) *v 
130 POKE st+i^ 

140 PRINT #B*AT l.Ojii NEXT i 
150 IF ck 102712 DR ck2< >252995 
l THEN GO TO 9000 
160 INPUT "Vuoi salvare i codic 


i ? 

LINE 

IF 

OR a*= 

"S " 

THEN SAVE "CODE i 

EXTEND"CODE 

st f ' 

212: VERIFY "CODE 

EMTEND ,, COD 

170 

PRINT 

"EXTEND e # 

in memoria 

a partire 

da " ; st 


180 

RANDOMIZE USR at 


190 

STOP 



9000 

PRINT 

■ERRORE DI 

CARI CAMENI 

0 J}ATE“ 

CONTROLLA 

MEGLIO" 

9010 

STOP 



FE84 

C5 

PUSH 

BC 

FER5 

CF 

RST 

8 

F ES6 

31 

EJEP D 

"1" 

FEB7 

CI 

POP 

BC 

FESB 

210C00 

LO 

H L , # 00 0 C 

FEÉB 

09 

add 

HL,BC 

FE8C 

Z2B75C 

LO 

<#5CB7 ) r Hi 

FEBF 

C9 

RET 


FÈ9B 

07 

RST 

«10 

FE9 J 

1800 

DEFB 

# 1 B , #00 

FÉ93 

FEF0 

CP 

#F0 

FE95 

280F 

JR 

l , LFEfià 

FE97 

FEE1 

CP 

*E1 

FE99 

2807 

JR 

Z.LFEA2 

nn 

FEFF 

CP 

»FF 

FE9D 

29èA 

JR 

Z , LFF09 

f£9F 

C3F001 

JP 

#01 Fi 

FEA2 

3E03 

LFEA2 LO 

A ,#03 


FEA4 

1802 


JR 

LFEAB 

FEftt 

3EB2 

LFEftA 

LO 

A < #02 

FEAB 

F D 3 ù 0 2 0 0 

LFEAB 

LO 

UY + 21 s #00 

FEAC 

D7 


R5T 

*10 

FEAD 

3025 


DEFB 

**V 1 * 

FEAF 

2B03 


JR 

Z t LFEB4 

PESI 

07 


RST 

110 

FEÈ2 

0114 


DEFB 

#01,114 

FÉB4 

D7 

m 

LU 

u. 

nJ 

RST 

410 

FEBO 

2000 


DEFB 

H ".«00 

FEB7 

07 


RST 

«10 

F£BB 

7020 


DEFB 

”?\ a * 

FEfiA 

380E 


JR 

CjLFECA 

FEBC 

D7 


RST 

#10 

FEBD 

1000 


DEFB 

1 1 0 f # 0 0 

FEBF 

FE2C 


CP 

#2C 

FECI 

2004 


JR 

Z f LFEC7 

FEC3 

PESE 


CP 

#38 

FEC5 

2021 


JR 

NZ.LFEE8 

PEC 7 

D7 

LFEC7 

RST 

#10 

fece 

2100 


DEFB 

* ",#00 

FÈCfl 

FE2A 

LF£CA 

CP 

#2A 

fecc 

201C 


JR 

ZjLFEEA 

FECE 

FECC 


CP 

tEE 

FEDE 

2014 


Jfì 

NZ,LFEEB 

FED2 

D7 


RST 

#18 

FED3 

2000 


DEFB 

" ",#00 

FEDO 

D7 


RST 

#10 

FEDÈ 

821 C 


DEFB 

*82 , i 1 C 

FEDII 

CDB705 


CALL 

#05B7 

FEDB 

07 


RST 

#10 

FEDC 

991 E 


DEFB 

#99 , # 1 E 

FEDE 

78 


LO 

A f B 

FEDF 

E43F 


AND 

#3F 

FEE1 

47 


LO 

B , A 

FEE2 

C5 


F05H 

BC 

FEE3 

010000 


LO 

BC , #0800 

FEES 

1B45 


JR 

LFF2D 

FEEB 

£7 

EFEEB 

RST 

#20 

F£E 9 

00 


DEFB 

#00 

FEEA 

D7 

LFEEfl 

RST 

#10 

FEEB 

2000 


DEFB 

" ' s #00 

FEED 

07 


RST 

#10 

FÈEE 

821 C 


DEFB 

#B2,#1C 

FEFB 

FECC 


CP 

#CC 

FEF2 

20 E Fi 


JR 

Z, LFEFE 

FEF4 

FE3A 


CP 

#3A 

FEF6 

2B53 


Jfl 

I ,LFF40 

FEFB 

FE0O 


CP 

#00 

FEFA 

2B4F 


JR 

Z ,LFF4B 

FEFC 

L SEP 


JR 

LFÈEfl 

FEFE 

D7 

LFEFE 

rst 

#10 

FEFF 

2000 


DEFB 

" 11 , 100 

FFEi 

D7 


RST 

#10 

FF02 

8 2 1 C 


DEFB 

#82, *1C 

FF94 

CEJB705 


COLL 

#0507 

FF07 

1819 


JR 

LFF22 

FF09 

D7 

LFF09 

RST 

#10 

FF0A 

2000 


DEFB 

1 ",*00 

FF0C 

FE23 


CP 

#23 

FF0E 

20 D 8 


JR 

N^LFEEB 

FF1B 

D7 


RST 

#10 


Sncialr Canputef - -33 


FF11 

2090 

DEFB 

H 11 ,*00 

FF13 

CDB705 

CALI 

#05 B 7 

FF 1 6 

2 1 C050 

L D ■ 

HL,*50CB 

FF 19 

0610 

LD 

B,*10 

FF1E 

F3 

DI 


FF1C 

D7 

AST 

#10 

FF1D 

B20£ 

DEFfi 

*B2,#0E 

FF1F 

C3C105 

• JP 

insci 

FF22 

D7 

LFF22 HSr 

*10 

FF23 

99 1 E 

DEFB 

#R9,#ÌE 

FF25 

7E 

LD 

M 

fF2ò 

Éi3F 

AND 

#3F 

FF2S 

4? 

LD 

B, A 

FF2? 

C5 

PUSH 

se 

FF2A 

D 7 

ftST 

#10 

f F2B 

??l£ 

DEFB 

#99,#1E 

FF2D 

79 

LFF2JJ LD 

A,B 

FF2E 

E63F 

AiJD 

#3F 

FF30 

67 

LD 

M 

FF3 1 

è? 

LD 

L,C 

FF32 

22495C 

LD 

t#5C49) ,HL 

FF35 

a 7 

RST 

110 

FF36 

MI? 

DEFB 


FF3B 

CI 

POP 

se 

FF39 

03 

INC 

BC 

FF3ft 

C5 

PUSH 

BC 

F F3B 

CI 

LFF3B POP 

BC 

FFJC 

D7 

RST 

#10 

FFJD 

6019 

DEFB 

*00 r *i9 

FF3F 

D2C1B5 

JP 

nc, insci 

FF 42 

C5 

PUSH 

BC 

FF4J 

D7 

RST 

#10 

FF44 

35 18 

DEFB 

m u H , §ia 

FF46 

D7 

RBT 

#10 

FF47 

L 000 

DEFB 

#10,100 

FH9 

1BF0 

OR 

LFF3B 

FF4B 

CDB705 

LFF48 CALI 

#05B7 

FF4E 

D7 

RST 

#10 

FF4F 

9?l£ 

DEFB 

#99 , # 1 E 

FF5 1 

?a 

LD 

ft,B 

FF52 

E63F 

AND 

I3F 

FF54 

47 

LD 

B , A 

FF55 

C 5 

PUSH 

BC 

EF56 

18D5 

OR 

LFF2D 


Bubble-s. 

1000 REM M/C BUBBLE SORT 
1010 REM GENERATORE CODICE 
1020 REM BY LUIGI FL CALLEGARI 

1030 REM — - — — — — — 

1040 POKE 23609,22: BORQER 4 
1050 PAPER 7: INK 9: BRIGHT 0 
1060 OVER 0: CLEAR 26999 
1070 DEE FN +ta$)=CODE a*-4B-7*< 
a* >"9" > 

1 000 LET a= 27000 

1090 LET b=a; PQKE 23692,255 

1100 FOR j=1290 TU 1460 ST£p 10 


1110 LET ch-0 

1120 READ a$; FRI NT CHRT 32; 11 

1 1 30 r IF a$='" THEN GO TO 1260 
1140 IF LEN a*=24 THEN GO IO 11 
B0 

1150 PRINT "ERRORE IN LINEA % 
FLASH ljj 
1160 BEEP PI, PI 
1170 STOP 

1190 FOR k=l IO 12; BDRDER 7*RND 
1190 LET x-FN Ì la*<l>l*lé+EN f<a 
* 12 ) > 

1200 LET a$=a*<3 TO ì 

1210 LET ch=ch+xa PDKE b,M 

1220 LET b-i+b: NÈXT k 

1230 PRINT eh: READ e 

1240 IF cOch THEN GO TO 1150 

1250 NEXT BDRDER 1 

1260 BEEP 1,20: LET s *='Wc sor t 

1 270 SAVE m * CODE a , < 1 +b-a ) 

12S0 GO TO 9999 

1290 DATA "F3CD6B0DAFCD01 162A4B5 
C7E % 1 306 

1300 DATA "FEB0CA7006FEC12S06CDB 
019% 1609 

1310 DATA ” EB 1 BF02323237EFE02C22 
02A%1254 

1320 DATA "235E2356ED53FE5A235É2 
356 11 1 1 64 

1330 'DATA " ED53F A3 A2322F6S A2AF65 
AED" , 1680 

1340 DATA ■'5BFA5A1922FS5A2AFE5A2 
B 22 ",1291 

1350 DATA " FG5A7DB42005FBCD6E0DC 
9ED" , 1690 

13*0 DATA "4BFA5AED5BF65A2AFB5A1 
ABE' 1 , 1675 

1370 DATA '■20410B132379B020F52AF 
B5A%1 116 

1380 DATA "ED5BFA5A1 922FS5A2AFC5 
A2B %1492 

1390 DATA " 22FC5 A 7 DB 4 20D 4 2 AF 65 A£ 
D5B % 1631 

1400 DATA "FA5A1922F65A2AFE5AE52 
B22" , 1427 

1410 DATA " FE5A3E16D73E0 1 D7AFD7C 
1CD% 1709 

1420 DATA "IBI A3E 20D7 1 B95 3 BC4ED4 
BF A Ék , 1349 

1430 DATA " 5 AÉD5BF 65 A2 AF 85 A7EF5 1 
A77" , 1650 

1440 DATA "E607D3FEF1 120B231379B 
020" ,1355 

000" ,0429 
1460 DATA 


5B00 F3 
5B0 i CD6B0D 
5B04 AF 


DI 

CALI H K C- ò B 
XQR A 


5BB5 

CDB1I* 


CALI 

#1681 

5000 

2A4&5C 


LD 

HL, LI5C4B) 
Ah tHL) 

«30 

5B0B 

7E 

L5000 

LD 

SB0C 

££90 


CP 

5B8E 

CA7 BUA 


JP 

Z, *0670 

5B 1 1 

FECI 


CP 

tèi 

5B13 

2906 


JP 

Z.L501È 

I19BB 

5B15 

CDBB19 


CALI 

5B1B 

£B 


a 

DE.HL 

L 5 BBB 

5B 1 9 

i 0F0 


J R 

5B1E 

23 

L5B1E 

me 

HL 

5 B 1 C 

23 


INC- 

HL 

5B1D 

23 


ISE 

HL 

5B 1 E 

7E 


LD 

A, ( HL li 

#à: 

5B1F 

F£82 


CP 

5021 

C 2 28 2 fi 


JP 

N Z , # 2 A 2 0 

5024 

23 


INC 

HL 

5B25 

5E 


LD 

£ r (HL 1 

502* 

23 


ENC 

hi ■ 

5B27 

56 


LD 

D , [HL) 

5B29 

ED53FE5A 


LD 

( # 5A F E 1 , DE 

5B2C 

23 


•INC 

HL 

5B2D 

SE 


LD 

E, I HL 3 

5B2E 

23 


me 

ni 

5B2F 

5* 


LD 

D, (HL) 

(èjAFA) , DE 

5B3B 

EDS3FA5A 


LD 

SB34 

23 


INC 

HL 

5035 

22F6 SA 


10 

(#5AFii ,HL 
HL, (N5AFA) 

5930 

2AFÌ5A 

L5B39 

LD 

5B3B 

ED50FA5A 


L0 

DE ftSAFA) 

SB3F 

19 


ADD 

hl.ìe 

50 48 

22F95A 


10 

tlSAFBl ,HL 
HL, ( «5 AFE !i 

5043 

2AFE5A 


LD 

50 46 

20 


DEC 

HL 

5B47 

22FC5A 


LD 

(#5ftFC> ,HL 

5 B 4A 

7D 


LD 

A , L 

5B4B 

B4 


flfi 

H 

5 B 4 C 

2885 


Jft 

N2.L5B53 

5B4E 

504F 

FB 

C06B03 


£1 

CftLL 

#8D*0 

5B52 

5053 

C9 

ÈD4BFA5A 

L5B53 

HET 

LD 

BC, (#5AFtìI 

5957 

ED5BF65A 


LD 

D£ , ( # 5tì F è ì 

50 5 B 

2ftF95A 


L0 

HL, ( #5AFS j 

5 05 E 

1A 

L5B5E 

LD 

a, 

50 5F 

SE 


CP 

(FILI 

5060 

2041 


JP 

NZ,L5BA3 

50*2 

00 


DEC 

BC 

50 6 3 

13 


INC 

DE 

501.4 

23 


INC 

HL 

50*5 

79 


LD 

A,C 

5 Bài 

60 


OR 

B 

5B*7 

20F5 


jft 

NZ,L5B5E 

5067 

2AF95A 

L5B*9 

LD 

HL, ( #5AF9 ] 

506C 

ED5BFA5ft 


LD 

DE, (H5AFAX 

5073 

19 


ADD 

HL.DE 

5071 

22F95A 


LD 

Ii5AF8> ,HL 

5074 

2AFC5A 


LD 

HL, (#5AFC] 

5077 

20 


DEC 

HL 

50 79 

22FC5A 


LD 

iiSAFO ,HL 

50 7B 

7 D 


LD 

ft,L 

507C 

04 


08 

H 

5B7B 

S-004 


Jfi 

HZ,L5B33 

507F 

2AF65A 


LD 

HL , (H5AF6) 

5992 

ED5EFA5A 


LD 

DE, !. # 5 A F A J 

509* 

19 


ADD 

Hi ± DE 

5BS7 

22F65A 


LD 

t#5AFi) ,HL 
ftL t l «i 5 AFE > 

5BSA 

2AFE5A 


LD 

5093 

£5 


PUSH 

HL 

5B9S 

29 


DEC 

HL 

5B9F 

22 FESA 


LD 

(#5AFE) ,HL 


5B92 

3E1 A 


LD 

A. Il* 

5S94 

E7 


RST 

#10 

5995 

SEBI 


LD 

A, #01 

5B97 

07 


psr 

#3o 

5B9B 

AF 


1 OR 

A 

5B99 

07 


RST 

#18 

5B9fl 

Ci 


POP 

BC 

5B9B 

CD1S1A 


CftLL 

# ] A 1 B 

5E9E 

3E20 


LD 

A , «20 

50A0 

07 


RST 

#Ì8 

5BFL 

1095 


JR 

L5033 

5BA3 

30 C 4 

L5BA3 

Jft 

C.L5B69 

5ÈA5 

É04BFA5P 


LD 

BÒ, (#5AFA> 

5BA9 

ED5BF65A 


LD 

DE, (#5AF*1 

5BAD 

2AF95A 


LD 

HL, (#5AFBI 

5B00 

7E 

L5000 

L0 

A, ? HL) 

5 B E * 

F5 


PUSH 

A^ 

5BE2 

lft 


LD 

A, (DEI 

5063 

77 


LD 

(ftLJ , A 

5BB4 

E607 


AND 

#87 

5BB6 

D3FE 


OUT 

<#F£3 ,A 

5BBB 

FI 


POP 

AF 

5BB9 

12 


LD 

<D£> ,A 

5BBA 

80 


DEC 

BC 

5000 

23 


INC 

HL 

5BBC 

13 


INC 

DE 

5050 

79 


LD 

A,C 

5BBE 

li 


DB 

0 

5D0F . 

20£F 


Jft 

Ni, LSBBB 

SBC 1 

ISA* 


Jfi 

L5B69 


10&0 REM DEMO PROGRAMMA M/C SGRT 
Idi B REM (01985 LUIGI C AL LEGAR I 

1020 REM — 

1021 INK 9s PAPER 7v BRISHT 0: □ 
VER 0ì INVERSE 0 

1025 CLEAR : RANDDMIZE 

1030 CLS ; INPUT "Quanti element 

i casual i ? "jn 

1040 PRINT J,r RIORDINO DI 

n ? '■ ELEMENT I " 

1050 PRINT " LUNGHI 2 CAR. - 
CASUAL 1 11 

10Ò0 DIM a$(n,21i PRINT FLASH 1 
; r ’ J "GENERAZIONE* , . H 
1070 FOR j-1 TO ni PRINT AT E, 15 
; j 

1 000 LEI a$Cj>=CHR$ <64+RND*V>+C 
HR$ £64*RND*25Ì 
1090 NEXT j 

1100 BDRDER 2: CLS : PRINT ”3 se 
condi e parte il riordino." 

1110 PAUSE 150 
1130 RANDGMI2E LfBR 23296 
1140 DEEP .5,10: BEEP .5,13 
1150 FQR j=l IO n 

1160 PRINT a*<jl;CHR$ 143 ; e NEXT 
i 

U70 PRINT ; LIST 
1180 STOP 

1190 SAVE " DE MOSOR T MC " CODE 23296 
,PEEK 23653 +256*PEEK 23654^23250 
1200 RUN 


Sirdar Computer - 35 


Boxe 

ì so m ?3ie 

2 LfT R-l: LET ft=8: 111 fi=0 

4 BDftDER Hi PARER 6: WK B: CLS 

5 Girl m utili: INPUT ’Im 

ihmg V‘,iti [MPiiI "noie Epectrut l'\ 

«t 

6 PAINI 1 INSERISCI LA VELOCITA R4I 
E UdLTE- 

7 IF UII£EM=T THEN LEI LET 
^•MASSIWI-ì SU T0 13 

0 [F INKEV^'2 1 INE# LEI * *Ms LET 
qf= p NELTER p : SO TO 13 
9 IF THE# LET rf: LfT 

qst= l P ] UHfi" : 05 10 33 
Il 00 TO 7 

13 FRINÌ ‘pesi j'fift; PAUSE I: PAlfS 

E t 

14 !F lNKÈ9t='3 p THE* LET iti-, 00 

TD mt 

15 EF INKEY(“*1 P THE* LET s-i: GB 

10 9100 

16 IF ]NKEVt='2 p THE# LEI s «2: BO 
IO 

n so io li 

513 LET 

53 B LET a=14i LEI y=il: LET j‘14i LE 
1 k=2B 

511 PAUSE 300: BEEF 1,20 
535 LET ft= p 'j lET qt=' *i LfT ht= 
p ■; LEI il** LET 1*=' ' 

520 LET St*CHRt 329+CHR* 13B+£Hfl* 13 
1: LEI ef=CHRt 13l*tW< 129-ChS* 131* 
LET xt=CHRt 344: LET jl=CHfil 147i LE 
T v^CHftt 145+CHR* 130: L£T kt-CHRt 3 
29+DNRI 34B: LET if=CHRF 154: LET b*= 
CHRt 150: LET rt=DI*l4 151+CHM E52+CH 
M L53 

521 PRIKT Mi 2,21; PAFER 0;Leapc< 

522 LET tuptrtupn-l 

525 EF teapft<0 THEN Ed TP 9501 
533 FRI UT AT _■ 

570 IF i=J2 THEN LEF f*“' LO q* 
■■ ’J LEI M--* LET i*= J " ' 

57 ( IF H2 THEN LET n*= p """ p : LET 
nF- p "i LET tf*' LET 1 

575 IF k*JJ THE* LET ff= p LET qi 

= p J : LET bf** LET i*= p " p 

576 ]F j-13 THE* LET ■*;" p : LO 

**=' *: LET ot= p (.ET pi= p 1 

STB IF k“14 mn "LET ti-’ LET gf 
±, __ p : LET M=‘ p : LEI it=' 1 
57? IF j-34 T*£N LET »*=■ ': LET 

n^“_ LET b^ 1 p : LET pt= s p 

500 EF 1=15 THEN LET {*=' p : LEI fi 
- p p : LET ht= p r i LET it* 1 ' 1 

501 IF }=I5 THEN LET it=' LET 
ut' 1 LET *: LET pP * 

539 IF ]NKEY*=Y AND S>l2 THEN Pftl 
*T AT i,y; PAPER D;U;AT itlrfHjtjAT 


i*2,y;y;A7 i+3,y-lìit{AT sM^-l;' 

É i LET wl 

590 IF INKEU- 1 ! ’ m 1 a (15 THE* PAI 


NT AT N,y; PAPER S;ft;AT 
x+2,^M|AT i*3,y-l;jt;AT pfl.Hl 1 
p : LET im*l 

595 LET «=|NT iRNfi+tl; ]F < D =| THEN 
PR3NT AT j,lr2; PAPER S;rI;AT f*l,k 
~ì;|vtjAT j+2,k;oÌiAT j*S,,6-l;|rè;AT j+ 
4- P k- 1 ; ■; LET k*k+INT tl»»3M 

59B LET vi-INT iFtìltvl; IF vi ^ TffiN 
PRIKT AT j.i-Is PAPER 3:iÌ;AT j*M 
-l;nt;AT j+2,k;atjAT jt3,k-l;p$;AT j4 
4«k-£; p *; LET i=j+lNT 4MHl#S)-i 
ili 3F iN^^ETh , ■ , AND y^k-3 THEN PR 
l*T AT i s T3 PAPER B;»;*! K + 3,j;gtjAl 
iti, ri hi; AT K +3 , r ì ; i t; AT s*4, y-1 ; p 
■i LET y=p* I 

f4l 2F INKEft*V ANO y>9 THE* PR3N 
T AT i,yj PAPER Bjf«;AT a*l,.y4 g*!*T * 
+2,y;MiAl xtf,y-l;i*;AT * +4 p y“ Lj 8 
p : LO y-jr-ì 

701 EF 1NKHÌ=V THE* LEI ict=MRt 
144f£HRt Lt0*ChAt Ut 


25M LEI pu-INT IAND*53 e IF x=j AND p 
u-fl m KK>I ANO vtOt THEN LET 
CHR* 149+CWH IW+CHftt 147: PfilNT AT 


t,k-2f [1K lj jf: LEI jt=C1«t 147 
Zi 80 tf a=j AND k=y+3 AND jt-CHRt 144 
+CHS4 Mf+CHRt L4É, THEN BEEF .015,0: 
LET 


2LI0 IF k=J AND k=y+3 AND pu=0 THEN 
6EEP .0iS H 0: LET b^h+2 
2A20 IF km AND V=y*3 m p^0 AND tt 
Km L4Ì+CHR4 H0*CHRt 116 THE* LET 
h-b-l! LfT *=a-l 
2710 IF ><12 THE* LET jK2 
27(5 IF j>]4 TA£N LET j=M 
2710 IF mi THEN LET k=22 
2720 IF k(y*3 THEN LET L±y+ 3 
2810 IF OR b=76 THEN ‘ SU TQ 9750 
23(5 IF j-75 DA ì=7ò T8EN SD TO 9300 
2900 FA! NT Al 1NK ì\ FAPEfi B;if; 
UT jc+l.ysylfAT q*2,yi4*;AT n*3,y-l;ct 
fftT *+4 s y-l;d* 

2911 PRINT AT >,k; m 0; PAFER R;>t; 
AT jtL,L-l;fc!iAT j+2,k;lstjAT j+3,k-!i 
tljAT H, 1-1 ;it 
3000 00 TB 52» 

90H LET rt= p 

'e PAINT ■veSacitj J : p ;5: RftliS 
E IH e IN* 0; PftWT AT 0.0; INVERSE 1 
;rt;rt 

9011 PR1NT AT 2,0; INVERSE l;rt;ft;rt 
9025 IN* 7i PH3NT AT 13,0;' 


9030 PfilNT AT 12,7j p ; 


9A4B PRINT AT 14,7; 1 


9045 LET rt- pp : Fflfl nU TD L7: LEI ri 
=r(*£Hta 143 e NETT n 


9058 PRINT AT 16,7; PAPER 7;rt 
9055 PRINT AT 37,7; PAPER 7;r* 

9059 PRINT AT |*,7j PAPER 7 f ft 
9A60 PRIA! AT 11 r 7; PAPER 7;rt 
9it2 PRINT AT 28,7; PAPER 7;fi 
9143 PRIAT AT 2t r 7; PAPER 7; ri 

9071 FDFI ir=0 TD 56; PLOT N,0; IRA* 53 
,47; NE1T N 

9075 FI» n-255 TO 190 STEP -Is PlDT N 
,0: GRAN -58,47: NEH N 
9100 Puffi 56,48: DRAN 0,20: PLOT 199, 
48: DflAN 0,2B 

9190 PL1FT 56,56: DRAM -50, 15 
9095 PLOT 56,72; DRA0 -50,15 
9097 PLDT 199,56: DRAM 50, -15 
9LM PLOT 399,72: DRAN 51,15 
91#5 LET st=CHRt 131 
9SI0 PRINT AT 5,0; INK 0; INVERSE lj p 
p ; ÌNVEASE 0; p ■; I 

AVESSE ÌJ* IN 

VESSÈ 0;if; p *;«(; INVERSE 

l; p 

9L20 PONT AT 7,1; IN* 0; ]NVEflSE I; p 
J ; INVERSE IfS*;* 

p ; E t; INVERSE L; J J j IN 

VERSE l^t;* l ;5t 5 

INVERSE I; 1 Ì*VEftSC 0;^; p 

INVERSE 

1;- B ; INVERSE l;it] p 

p ;st; INVERSE 1;‘ p 
9(31 PAPER fi: PRINT AT | h 1 


9131 PRINT AT I,t; , ! p ; [KVERSf l; J MK 
ER P ; INVEASE 0;’! INVERSE 1;‘E P ; 1 
INVERSE 8; 1 I ■; INVERSE 1;‘2“; 1NVEAS 
E «; - ! p ; INVERSE 3;‘J P ; INVERSE t; 1 
I p ; iNVÉRSf 1; J TTHÉ P ( IÌTVERSE 8;“ I p ; 
INVERSE 1 ;■ FI NAIE"; INVERSE 0; , [ p 
9LI2 PRINT AT 2,1;'! TB j 
■;AT 2,llp "!■ 'f AT 2, 15; p 3 J i 

9133 PRIA! AT 3,1;"! 'luti Tff 31 ; ■ ! 
■ìAT 3,31;»! *;AT J,!5; "I ! p ; INVER 
K I; B TINE P ; INVERSE f; B Ì i p 
9140 PRINT AT 4,3j É — — 


936» PRINT Al 5, 11; FLASH Ij'PESI p jq 

* 

9261 PAPER 6 
929» SO TO 500 

9300 RESTARE 9410; FQfi «=USR V TD 0 
5fl ' k^T 

9340 HEAD vi F3KE n,vt SET fi 
9361 RESTE-RE ! TOUR* 

9410 DATA 26 ,62 , 63 t 127 , 176 , 254,252.22 

4.240.240.254.255.223.239.246.248.0. 1 
,63,255, 247,199,0; 1,56,124,252,254,12 
6,127,63,7 

9410 DATA 35,31,327,255,251,247,311,3 

1 . 1 . 56 . 255 . 255 . 227 . 96 . 0 . 1 . 63 . 63 . 65 . 65 
,129,255,231 ,199,247,217, 135, 135, 131, 

331.1. 3.1.1. 3. 3. 7. 7. 7. 7. 8.0. 328.320.1 


36 - 5lroiHir Otunputief 


12,192,224,224 

942# MA 252 ,252,1», |3l T l2? T 255 T 23l,227 

95W LET r=r*l: SEEP 2,3: 8EEP ,2,-2 

9511 IF r-2 THEN PRt*T AT 2,»; PAPER B;a;AT 3,9;b 

«12 IF r=3 THEW PAINT AT 2,13; PAPER 0 ;ì;AT J,33;& 

«34 IF r>3 THEN PRINT AT 2,17; PAPER 0;a;AT 3 ,17;b: GB 

TO 9700 

«21 LET i=2: LET gDti}=160B 

952S FU fi r= 5 TU 21: PRINT AT ei,B; INK 3; INVERSE li 1 

■; IT n 

«24 pftlin AT 7 f 14; IKK B; PAPER 1;CHM 132+CRW H0*CNR 
t 140+CHR* 134+ 1 '+CHRT 132; E 

N VERSE l;' *; INVERSE 0;CH&1 IS4;AT 11.13} PAPEfl i;CH 

R» 13B+ ' ' tCttfb 1 33 ; AT 1 , 13 ; CHRt 1 43+EHRJ 3 39+CHR9 1 3 

t Km l3ì*CHRt 335+CHRi 143} W 11, 13} CHIÙ ITB+'Q (1 '+CH 
RI 131 

9S25 PFtlHT AT 32,13; PAPFfi lf IKK i; INVERSE 1;' '( 

INVERSE 0;' l | INVERSE I;' 

*\ INVERSE A;' ■fCUW 133} IN 

VERSE 3;' '«f 131 

952B PRINT ÀI 15,14; m i; PAPER 1; INVERSE l; 1 - I 
N9EREE B; f 4 +CHR4 LlS+CRfl* 14 

3tfHRl iHtCIffl I34*CHW IU+' 

-tfflRR 332+CHR* 342+CHR* 340tCHR4 Ì4B+EHRÌ 143tCHRI 343 
«31 PR1NT AT 1B,B; PAPER E; INE i; INVERSE i;CHM 331+C 
HR4 Hit' 'tCHtl 129; INVERSE 0; 4 

’tCIffi* 141; INVERSE 1;' INVERSE I 

;■ '[ INVERSE I; 4 *; INVEII 

SE 0;CKB4 33B+" 4 ; INVERSE 1;' ! 

I -tETHRf 133 
4515 ED TQ gote 

%H PRINT AT 12,15; INK 3;CMt 143; AT 33,l5;CHA* 143 
9ò05 IF b>18 THEN PHINT NT là, 15; INK B; PAPER 2;CHM I 
33; AT tl,15;DKH4 143 

1611 !F *>35 THEN FA 3 NT AT '11,14; INK l;CH4f 143[AT 13, 
J3; INK il INVERSE Tj'V’jAT 12,I7; 4 r;AT 10,l5( i \" 

4621 IF 5)50 THEN HHNT AT R,33; INK 7; PAPER 1; IMERS 
E 1 ; DlHfiF L39t 4 f ■ ; CHRf 135}AT 9,13; 4 
1621 LET 3-0; LET>tD=9tó5 
9632 PAUSE #: PAIfSE » 

9623 SO TU 9521 

1625 PRENT AT 12, 15; IKK 7; PAPER tjCWU I43;AT 13, 19 j DI 
R* L 4-3; AT ll T 14} 4 rjAT ll,lé;"D É 
9631 IF a>10 THEN. PAINI 4T 12,15; INK 3; PAPER S;CKA4 l 
13;AT J3, 15; CHS* 143 

1635 3F a)35 THEN FS1NT AT 11,16; INK 2; CHAT S43;AT 11, 

1 9: lm ti INVERSE Ij'^AT l2,17| 4 \ 4 fAT ll,15pV 
9641 3P a >50 THEN PAINI AT 5,33; INK 7; PAPER 1; 2 MERE 
£ 3 j QfftJ (39t 4 / 'tara LU;ffl 9,tt; v / 1 

9650 PAUSE 0: PMISE 1 

«51 FON n=5 TS 21 i PAINT AT n,0; PAPER 6;' 

NE1T n 

«40 ED TO 9125 

9700 LET 

9701 IF J>b THEN LET rò=if 

970B PS5NT AT 2 f 25; PAPER t;vf( TU 3> t -J IS';AT 3,25; FLA 
BR [j’NINNER 4 

9709 I? ENKEYt=V THEN ftiiN 

9710 ED TU 9713 
9750 LEI per*! 

9755 LEI sài -3 NT [RNDf IlB»v> k IF sdl-0 THEN SO TO 2900 

9756 DEEP .1, -30 


9759 LET perderti 

9760 IF pw=ll THEN 4M TO 9745 

9761 SD TO 9755 

9765 PRINT AT 2,25; PAPER 0fiH Tfl 31 j 1 IS^ftT 3,25; 4 K. 
0. SEEF 3,1 

9771 IF 3NKÌ 9t- J s" THEN SD TO 9700 
9771 SO TU 9770 
9801 LET ptJ^B 

9805 LET &a3 = ENT IPHDi t IBM ) s IF ial=0 THEN 6D TU 2900 

9906 BEEF ,1,30 

9811 LET perirti 

«31 IF pernii THEN SD TS «20 

9313 60 TO «05 

9321 PRINT RT 2,25; PAPER B;»(I TD 3);' IS';AT 3 f 25; 4 K, 
t. ■: EEEF 3,1 

9831 IF ]NKEYI=V THEN Btt IR 971B 

9840 60 TU 9B3i 

9999 BAVE 'ROTE' LENE 1 


Spazio QL 

Quella che segue e' una prima 
serie di PRQCedure per simulare 
nuove -Funzioni «sul QL. 

Per problemi di spazio, il 
commento apparir^' sul prossimo 
numero. 

100 DEFine PFTOCedure CHDJ CEW 1 MDaW i. à ) 
110 i-QCd 1 b,c,k, K*,)(,v 
120 IF *>2 THEN AETurn 
130 b"40it*20t m“Oj y*0 

HO MDDE 4 

ISO ÙPE«#3 t SCR„5l2X25èA0K0 
160 PAPER 13 pOfCLS *3lfflPER I0,5 iPAP 
ER ll,3iPAPER #2,5: PAPER #4,7: INK #* t 
0 

170 REPeat alt 

1B0 klNOGN #a , b , c , 32 + n , 1 6 + y 

J90 CLS03:CLSIOECLS#liCLBt2iCLSta 

200 PRINT #aiK} M /}y\b} 4 ,"|c 

210 k-CODEUNKEHMn 

220 SELect OH k 
230 ON k = 396ìit*)(-l 

240 ON k«204iì("n + l 

250 OH N*197:ì(=x-4 

260 QN k-T90i w “si — 6 

270 OH k*203t*MM 

200 OH h«206iH'*x4-e 

790 ON k«212t y>*y H l 

300 OH R*2l3iy«y-4 

310 ON k-21 *i y*y-B 

320 QN k-220iy«y+l 

330 ON k«22iiy*yt4 

340 ■ ON k=*222iy*>y+fi 

350 ON k*3 92ib^-l 


S<ictìif Cam(mt»r - 3-7 


3*0 

DN 

!{>L93jb-b-4 

370 

ON 

k»mib'b-G 

300 

DN 

k-200ib-b+l 

390 

QN 

k*201ib«M4 

400 

0N 

k-202ib-b*8 

410 

DN 

M208IC-C-1 

420 

DN 

k*209tc-c-4 

430 

DN 

k»210s c*c-S 

*40 

Ot» 

k*21*tc"£4 1 

450 

DN 

lt«217ie-cM 

4*0 

ON 

k*21B*c*t+B 

470 

DN 

K-tOiEUT ili 

4B0 

END 

SELect 

490 

IF lì! 

>40B THEN H '406 


THEN x^iELSE IF y >216 THEN y-21*iELS 
E IF- y<0 THEN y=OiELBE IF b>44B-n THE 
H ta" 440 -hi ELSE IF c>2*0-y THEN e*240- 
yiELSE IF c<20 THEN c=20iELSE IF b<40 
TH|N b-40 

500 END REPeit all 
51D END DEF ir* 


100 DEFine FuNction HAH (a, b> 
1 10 IF a>*b THEN 
Hi RETurn & 

112 ELSE 

120 RETurn fa 

121 END IF 
HO END DEF 3 ne 


100 DEFi n e FuNction MINI i ,b) 

HO IF i<»b THEN 

1U RETurn a 

U3 ELBE 

120 RETurn b 

m END IF 

130 END DEF ine 


ICO DEFine PftDCedure SCRBYli*,a> 
110 LQCal 5* 

120 

130 SBVTES e», 131072, 3276B 
140 END DEFI ne 

150 DEFi ne PROCedure 5CRLDti*,a> 

lbO LCCaS DI 

170 S**"ttDV'tlti" H U* 

1BO LBTTÈS Di, 131072 


100 END DEFins 


100 DEFine PRDCedure updatetatt 
I IO aMupperF l al) 

120 IF "HlWINGTft a**l THEN 
S 30 DELETE a* 

140 SAVE a* 

150 ELSE 

1*0 i*-'MDVl 'ìiii 
170 updite a * 

160 END IF 
ISO END DEFine 


ICQ DEFine PROCeflurs F1LE5U) 

HO 1PERHIND0U 
120 SÈLect ON a 
130 0N a*l iCLBi DIR fldvl^ 

140 ON i*2f CLB#2i D1RI2; ND02_ 

ISO ON i-3iCLSinCLS#2ìDIft advl^EI 

«#2(1002,. 

1*0 EH0~ SELact 

170 END Df Fine 


100 DEFine PROCedure IPERMINBQW 
HO OPEN4200, Etr_512s(25éa0!<0 
120 DLS#2O0 
130 CLDSEI200 
140 HlNDQBbl, 224, 192,32,1* 

150 NINDBN#2,224, 192,256, 16 

1*0 MlNDOtlttO, 446,42, 32,214 

170 BORD£R#0, 1 , 1 

ISO CLS#0 

190 B0RDER#! ,1,3 

20O CLS#1 

210 BGRDERttZ, 1,5 

220 CLS#2 

230 END DEFine 


100 DEFine PRQCfdurt N0RMHINDQW 

101 OPEN#200,icr_312H256*O)ì0 

102 CLS«200 

103 CLDSE#200 

HO NINDQN #0,446, 40,32,216 
120 NIN00N#1,44B, 200,32,1* 

130 NINDDN#2, *46,200,32,16 
200 END DEFine 


100 DEFi fi* FuHction EINIU) 

101 LQCal é> 

110 al* M “ i REP a a t L 

120 aW*t< i-2«]NT<a/2Hia>IN'Ma/2> t J 
F a>0 THEN NEH' 1 
I SO RETurn a* 

MQ END DEf ine 


100 DEF ine FuNction BlNijl) 

101 LQCal p f t 

102 t-0 

110 FDR p-1 TE) CENE*») 

120 t-t+ttMLENIlfì-pllM «altpH-M 

■) 

130 NEX1 f> 

140 RE Tarn ì 
200 END DEFlnt 


100 DEFi ni PRQCedure r eg t i ee E n > i LGC*) 
a»b ,c ,d f t,f 

110 INPUT Ini" ANNODI al “fl£SE>"1b\ ,, eiDR 
NO > V c \ u QRI>" f d 1 - N LNUT I > V *\ " BICONE I > 
"Hi SDATE a , b t C , d , e p + i t i •* ni END DEFÌ 

nt 


12694 DEF ina PROCedure t i nt (n > ! PR INTtt 
nj DfiTEItEND DEfìna 


100 DEFine FuNction UPPER» lai ) i LOCal 

i 

110 FQR i*J TO LEN(al) t IF CODE UHI) 
im ftND CODE (al EDI (123 THEN alUl-E 
HRUCDDEtif (iH-32) 

120 SET urn a» 

130 END DEFine 


IO DEFine FuNction tr une In) iRETurn n- 
INTln) ! END DEFine 


32640 DEFi ne FuNction DECK (il) 

32641 LOCal i pPl Zip-0 

32642 il* UPPER Hit) I FON i»l TO LENU* 
) 

32643 Z-CODE (alti H i IF Z>47 ftND ZC30 
THEN p*p+ ( Z -4t) * L 6* ( LEN 1 al ) “1 J i ELSE £ 
F Z>64 AàD £<71 THEN p*p+(Z-3S) »lb* (L 
ENUI) ’il i ELSE p*0iG0 10 32643 

32644 NEKT i 
32643 RETurn p 
32646 END DEFine 


32647 DEFine FuNction HEJftinJ 
3264B LOCaì a,b,c,d p rt,Z 
32649 i“0ìb*0ic-0!d*0! Z*0 

32630 IF n >63336* 16-1 THEN DO TO 3263 
6 

32631 IF n>63335 THEN Z*)NT(n/63336> s 
n*n-Z*63336 

32652 IF n>4095 THEN a=l«T En/4096> in- 
n-a#4096 

32633 IF n>253 THEN b-ZNT (n/236) i n-n- 
6*256 

32654 ìf n>!5 THEN c-ÌNT (n/li) i n-n-c* 
16 

32655 IF n>0 THEN d-INT(n) 

32656 r»"ew»1Z)fetailU)btf4»ìk)&eMl 
{£)&eea*(rfliRETurn r $t END DEFine 


32657 DEFine FuNctìon tlillo) t LDCal r 
I 

32658 IF n< 10 THEN rl-niELSE rl"CHft*E 
33*n) 

32639 RETurn rii END DEFine 


100 DEFine FuNction LÓNERllal) e LOC aJ 
i 

110 FOR i-1 TO LEN(at) i IF CODE (.al ( j ) 
1 >64 PHD CODE (alti ) ><91 THEN a*(i)-CH 
RliDDDEUltm+32) 

120 RETurn a» 

130 END DEFine 



100 DEFine FuNctìon f ac tini 

110 IF n>l THEN 

120 RETurn nHact(n-l) 

130 ELEE 
140 RETurn n 
130 END IF 
160 END DEFine 


Siifc’Sr QHrpulH* - 3B 


Super basic 

Ift REM*rk Indovina in 1B ttntitivi 
20 *»RRD(5B> 

30 FQR tll |àAa-l TQ 11 

40 INPUT "tentativo n. "tal 1 _gas*j . > 

" \ tinti 

50 IF tanti-a THÉN BEEP <ttt C , 0 ; F fi I NT 
"OKAY! "iCXIT all Q*M 
Ò0 IF tenta)* THEN PRINT "Troppo gran 
de"iNEXT tll_giH 

70 IF tintaci THEN PRINT "Troppo picc 
olo" tNEKT all gatta 
03 END FPfl illuni 
?0 PRINT "Prilli S par un'altra partit 

a" 

100 IF IMKEY*(-n--"S" TtìEN SU TD 20 


10 REMarii tu 1 t i _F0ftHAT 

20 prtpara tchiFma 

30 chiadf.noee 

40 quantf.volte 

50 foreatta cartuccia 

40 DEFint PROCedurt pr *pari_ach*r ioi M 

HI? E SìCLSiENO DEFint 

70 DEFint FRDCedure chi edi_no*e 

00 X IV P lì T "Corca chiiiiic la cartuccia? 
noarl 

?0 IF LEN (noapfl >10 THEN PRINT "TRDPP 
U LUNflU-ìSO IO 80 
e 00 PRINT" PK" 

110 END DEFint chiedi none 
S 20 DEFint PHOCedurt Tor*atta_cartucc 

1 a 

«30 POR fornatt**! IO voi teiFORNflT 'a 
d v 1 _ " frn oael 

140 END PEFin* 4praatta_cartuccìa 
150 DEE ine PRCCedure quiftt *_ vO 1 1 t 
i 40 INPUT "Quanta volta foriatto la c 
artuccia? "jvolt* 

170 END DEFint guan talvolta 


QL «ACRO ASSEMBLER VERSIOS 1.5 
TOC DBJECX STKT 


1® EEitart ******m***************** 


2® REMark * * 

3® REJtsrk * CAFSLOCK * 

4 « KEJtark * per QL * 

5® REKark * (c? 1935 * 

6® REEark * by Roberto Pr eviterà * 

79 REKark * * 


30 REKark ******* ********** ********* 
1®0 a=RESPR UftS):**» 

11® REPeat loop 

12& IF EOF THIN EXIT loop 

130 READ “dat i : POKE a+*,datt: se-K+l 

140 filD REFeat loop 

15® DATA 97,0,0.32,50,57,0,2, 125, 136, 

12.65. 9.0. 102. 0. 0. 1®, 67,250, 0, 152,96, 
0,0,93, 67 , 250, 0 , 136j 93 ,0,0,90,67, 250 , 
0 T 116, 52,57, 0,2 , 142 , 23, 130, 105 ,0,4,10 

3.0, ®, 70,51, 252, 0, 0,0,2, 142 , 36 , 50, 57 , 
0 , 2, 142, 30 ,4, 65,0, 10,51, 193,0,2,142,3 
®,51, 121,0,2, 142,23,0,4,51,124,0. 10,0 
,6,51, 121,0,2, 142,24,0,6,210, 121,9,2, 

142 . 26. 51.65. 0. 10. 52. 12®, 0 , 198 , 78 , 145 
, 75, 250, 0,64, 42 , 136. 7$, 117, 32 , 122 , 0 , 5 
6, 54 , 60, 255 , 255,52. 60, 0 , 3, 1 12, 7 , 78 , 67 
, 112, 17, 50,60,0,0,54.60,255, 255, 73,67 
,73, 117, 0, 0, 0, 7,0, 0,0,0, 0, 0, 0, 0,67, 65 
, 8®, 83, 32. 79 , 73,32, 67, 65 , 3®, 33,32 , 79, 

70.70.0. 0.0.0, 101 

16® SAVE jbìv 1 1 nck . 20® 2 SBYTBS mdv 

1 capalo, a, x 

17® STOP 

200 a=EESPR C134 > : LETTES miivl_cap£_c, a 
rPOKE 164002, 96: POKEJT 164004, 3846: PO 
KE_V 167350,20217: PQKE_L 167352. a l SEV 

PAGE 1 

8QURCE STATEKEST 


1 * 
2 * 

3 * 

4 * 

5 * 

6 * 
7 * 
S * 
9 * 

1® * 
11 * 
12 

13 

14 # 


******************* 
CAPE L OC K 
per 4L 
<cl 1&S5 
by Roberto Frev Itera 
****** ********* * * * * 

definizioni di alcune utili costanti 


* 

* * * 


« - Sndair 


15 



= 00C6 




16 

ut con 

equ 

*c6 

Vett, crea wlnd 


=0007 




17 

io_satrg equ 

*7 

D0=Seud strina 


=0011 




13 

sdjtab 

equ 

HI 

D0-tab cursor 


=0002S068 



19 

sv_c*ps 

equ 

428038 

Caps noie 


=00028ELC 



20 

SdjtSiSÉ 

! equ 

I23elc 

Puat, l&rg, #0 


-00028E1B 



21 

sd^y&ize 

; equ 

S28ele 

Punt. alt. #0 


~00028E1S 



22 

sd^xmiu 

equ 

$28el6 

Pont, xpos #0 


3 0002fiElA 



23 

sd_ymin 

equ 

$28ela 

Punt. ypos #0 


=0002 6 E24 



24 

sd^ypoe 

equ 

$2fie24 

Funi, ypos #0 






25 










28 

* * * * 

* * * * 

* * * M i H 

; » M t M M i 






29 










30 

* * * * 

I N I 2 

: I 0 P S 0 G 

SAUNA * * * : 






31 










32 

* * * * 

* * * * 

* K t ***** 4 

;********: 






33 










34 






6100 

0020 



35 


bsr 

defwind 

GO SUE defwUd 

0004' 

3239 

0002 

8068 


36 


nove, v 

sv^cape, di 

Salva sv^caps 

000A f 

0C41 

0000 



37 


empi 

^©7dl 

Controlla vai 

00$E r 

6000 000A 



38 


bue 

capsoti 

IF capa THEI 






39 

* 



CO SUB capson 






40 










41 

* * * * 

* 4 * * 

* CAPE OFF * 

******** 






42 






4 3 FA 

0093 



43 

capsoff 

Lea 

spento al 

Strlng=3pento 

0016 r 

6000 

0062 



44 


bra 

prlnt 

GO TO prlnt 






45 










46 

* * * * 

* 4 * * 

* CAPE 01 * 

******** 






47 





001A' 

43FA 

0066 



43 

capso» 

lea 

accesa, al 

Et ri uvacee su 

00 LE’ 

6000 

005 A 



49 


bra 

prlnt 

GO TO prlnt 






50 










51 

* * COSTEOLLA SE 

LA FINESTRA 0 

E h CAMBIATA * * 






52 





0022’ 

43FA 

0074 



53 

defwind 

lea 

windef ,al 

Al punta para- 






54 

* 



metri di wind- 






55 




dow 

0026' 

3430 

0002 

3 B1C 


56 


move 

sd_itslze t d2 

Largh, window0 






57 

* 



in d2 

002C 

B46& 

0004 



53 


□jnp . 1 tt 

4 <al> j d2 

se window 0 = 

mr 

6700 

0046 



59 


beq 

rlt 

window nuova 






60 

* 



then GO TO rit 

0034 ' 

33FC 

0000 

0002 

6E24 

61 


move. w 

#0, ed_ypos 

Cursor ypos=0 

003C’ 

3239 

0002 

8E1E 


62 


aave. w 

sd ysize, di 

Ysize in DI 

0042' 

0441 

000 A 



63 


subi. w 

#10, di 

TsizevTa.i ze - j 






64 

* 



riga 

0046- 

33C1 

0002 

8ELE 


65 


mu-ve. w 

di, sd^ysize 

Modifica wlnd 

004 C 

3379 

0002 

6E1C 

0004 

66 


muve . w 

sd_3cslze,4<al> 

Vindow nuova = 






67 

* 



window 0 

0054 ' 

337C 

000A 

0006 


68 


move. w 

#10 h 6(al> 

Yeize di window 

a 

i 




69 

* 



nuova=10tl riga) 

Sintìar Computer - <t 


005 A * 

3379 0002 3613 0005 

70 


ad ve . w 

ed_xaln p 0fal> 

*pos nuova wind- 



71 

X 



dW=xpaa wtndow 0 

0002' 

D279 0002 3 61 A 

72 


add.w 

sdraia, dì 

Yptìa di Wlndow 

0060 * 

3341 000 A 

73 


J»v*, w 

41,** (al> 

niiva* ypoe wind- 



74 

X 



ow O+jalta wiod- 



75 X 



QW 0 



76 







7? 

* * X * 

X X c CREA LA F [ VESTE A 

xttxxxxx 



73 





ooec f 

3473 OOCfl 

79 


nova- w 

ut con, b2 

A2 punta Ut_oon 

00 70 ' 

4192 

30 


S «r 

<a2> 

GO SUB iit_can 

0072' 

4 SFA 0040 

61 


laa 

channal.aS 

Salva cbaiiciel ID 

0076’ 

2A88 

02 


■ove. 1 

a*. <a5> 


0« 70' 

4E75 

03 

rlt 

rti 


RETurn 



04 







05 

* X 1171 A UVA STRI VGA DI CARATTERI A UV CAVALE * 



06 





00?A" 

207À 0033 

07 prlat 

■ove. 1 

channal, A0 

A0=cbannel ID 

0O?£' 

363C FFFF 

00 


Bave. w 

#-1, d3 

D3-tlBaaut 

00*32" 

343C 0003 

09 


BVt.H 

15,42 

D2= ausare cb*r. 

0066' 

700? 

90 


«a veq 

#10 astrg, dò 

DO- Send tìtrlng 

0033" 

4243 

91 


trop 

#3 

00 SUB IO aatrg 

0030* 

7011 

92 


iwvaq 

#ad tab, dO 

D0=t*b c urtar 

003C" 

323C 0000 

93 


nova. n 

#0, di 

cursor *t 0 

0000 + 

363C FFFF 

94 


nove- w 

4-l P d3 

D3- 1 1 meci u t 

0004' 

4£43 

95 


trap 

#3 

00 SUB od_t*b 



90 







07 

XXX* 

XVI FIIE PROGRAMMA 3 

KXXXXIXXX 



90 





0090' 

4 £75 

99 

fine 

rt* 


SETura; EVD 



100 







101 

xxxx 

X PARAMETRI VUGVÀ VISDOV X X X X X X X 



102 





0000" 

0000 0007 

103 

windef 

do.b 

3 r 0, 0 F 7 

vindow nuova 



104 

X “ 



psriKtri 



105 

X 



Bordo, colora 



106 

X 



ini. papar 

009C' 

=0003 

107 


da.w 

4 

xslza, yalza 



100 

X 



xpos, ypofl 



109 







110 

xxxx 

XXX STRI VGA "CAPE OV 

XXXX «XXX 



m 





00 A4' 

4341 6053 204 F 4 £20 

112 

accesa 

de. b 

‘ CAPS OV 1 

Strliigactìpaon 



113 







114 

X X X X 

XXX STRI VGA 'CAFS OFF' 

xxxxxxxx 



115 





00AC r 

4341 5053 20 4F 4646 

116 spento 

de. b 

'CAPS OFF' 

Btr 1 og^copapf f 


II? 

110 * X X X MOTORIA I BOTTI F1CATORE DEL CAVALE X * 
114 

120 channel da- 1 I 
131 

122 and 


04B4- -0004 


C tranne 1 étpra^e 


Considereremo tre programmi di 
simulazione di volo aereo per lo 
Spectrum (4BK), soeltl come l più 
rappresentativi e tanni; Flight Si- 
multìtlon, Flrghter Pilot, Delta Wlng, 
Tutti e tre hanno della carati arieti- 
che tati da poter essere definiti sf 
mutatori, e non semplici giochi ni; 
caratterizzante In. questo senso à la 
visione esterna con grafica (ridi- 
mensionale In tempo reale. 

Righi Simulatici! (Pslon), è stato 
uno del primi programmi per io 
Spectrum, nel lontano 1902, ma ri- 
mane egualmente assai valido, à un 
I rinunci abile tarmine di confronto 
per tutti gli altri programmi del ge- 
nere. Il velivolo simulato è un picco- 
lo bimotore. 


i simulatori 
di volo 

di Luigi Callegarl 



atterraggio strumentale guidalo da 
terra) e altri tre strumenti, siglati 
BCN, RGE, BRG, che formano un 
evoluto sistema radar per ia naviga- 
zione. 

Il programma, essendo slato svi- 
luppalo dai programmatori Pslon In 
collaborazione con i piloti di linea, è 
molto fedele, anche se a chi non ha 
mai guidato un bimotore potrebbe 
sembrare assai Jento. 

li difetto maggiore è l'impossibili- 
tà dJ usare I tradizionali joystick, ca- 
ratterietica presente in tutti gii altri 
simulatori a noi roti, 

Mancano effeltl sonori fantasiosi, 
ma la grafica è ben rifinita, specie 
per guanto riguarda la strumenta- 
zione di volo, 

Flghter Pilo! (Digital Integration). 
Questo programma è stato segnai a- 
to dalla stampa inglese specializza- 
la come uno del 10 migliori pro- 
grammi per Spectrum dell'anno 


1963. Sviluppalo da un pflota- 
ingenlere-prog rammatore , è basato 
sui dati tecnici deil'F.IS "Eagla'\ un 
caccia supersonico della U$AF, 

La prima nota di differenza, ovve- 
ro di superiorità rispetto al prece- 
dente, è il grande numero di opzioni 
iniziali. A parte 1 4 possibili livelli di 
dJff Leoni (da apprendista a pi loia 
professionista) a la possibilità di 
scegliere tra controlli da tastiera o 
con joystick vari, è possibile anche 
scegliere tra I seguenti modi di fun- 
zionamento; pratica di atterraggio, 
allenamento ai volo, atterraggio ole- 
co (niente visione esterna), pratica 
di combattimento aereo, combatti- 
mento effettivo, 

I controlli disponibili sono: clo- 
che (4 direzioni), timone, tlaps, 
throtlle. Carrello, mappa, stazione 
rader, attivazione del computer da 
combatti mento o di quel lo d'atter- 
raggio, cannoncini e sospensione 


IsegufldfsÉg. Ki 


I comandi disponibili sono: clo- 
che f4 direzioni), timone, flap, car- 
rello d'atterraggio, throtlle {gas mo- 
tori), mappe e stazione radar di rife- 
rimento. Come avviene anche negli 
altri due programmi presentati, è 
pose! bile avere sul video una vera e 
propria canina indicante con sim- 
boli: la nostra posizione, la posizio- 
ne dei fari radar, la posizione degtl 
aeroporti e delle particolarità geo- 
grafiche {montagne e laghi) sven- 
tuaì mente visibili. 

il volo è guidato da una serie di 
basi radar a terra, sulle quali pos- 
siamo sintonizzare I nostri radar di 
bordo- per un tranquillo voto st ru- 
meni ale. Bui video, oltre alla visione 
dado spazio esterno, che occupa i 
due terzi superiori, abbiamo i se- 
guenti strumenti; tachimetro (In no- 
di), altimetro (In piedi), ROC (angolo 
di cabrala), potenza dei motori, car- 
burante, angolo Maps, ILS (sistema 


H 

NORMALE 

Istruzione <30 SUB. Sposta l'ese- 
emione del programma alla M su- 
brettine” xxt, cioè alia linea nume- 
ro xxx, dato come argomento. 

Una subrettine è una sezione Iso- 
labile del programma, ohe dovendo 
essere eseguita più volte viene 
scorporata; Il programma principale 
può saltate alla subroutine da qual- 
siasi punto, e ritornare a questo al 
termine. Il vantaggio è il risparmio 
di memoria e, per I puristi, l’elegan- 
za di programmazione (non si scri- 
vono più volta le stesse istruzioni); 
per contro si he una leggera perdita 
di velociti dovendo ottimizzare i 
tempi (senza avere problemi di me- 
moria), conviene evitare i salii e pro- 
grammare linearmente. 

DI GO SUB abbiamo già parlalo a 
proposito del suo completamento 
RETURN (eh- SC n. 12 pag. SS); per 
quanto riguarda l'argomento, vale 
tutto quanto è stato scritto per GO 
TQ nello scorso numero. 

Attenzione a non dimenticare il 
RETURN; l'errore non viene segna- 
lato e II salto resta memorizzato 
nella celesta dei GO SUB. 

SYMBOL SHIFT 

Elevamento a potenza. Istruzio- 
ne molto... potante, a patto ohe non 
si richiedano grandissime precisio- 
ni e velocità. È in grado, in teoria, di 
elevare qualsiasi base a qualsiasi 
esponente, entrambi interi o deci- 
mali, in un range utile che ha per 
estremi (del risultato) 2. 9387359E- 
39el. 70141 18E + 3B. 

L’elevamento a potenza serve an- 
che, come molti ricorderanno, per 
l'estrazione di radici II cui Indice sia 
diverso da 2, anche decimale (utile 
perciò per risolvere equazioni loga- 
ritmiche); per esempio, porre come 
esponente 113 significa estrarre la 
radice cubica. 

Nell 'uso ricordate che la priorità 
più alta di lutti gli operatori aritme- 
tici e logici: nei casi dubbi, usale le 
parentesi. 

Attenzione anche al segni; con 
una base negativa va in errore; per 


un tasto 
per volta 


esempio, elevando -2 al quadrato 
ottenete -4, a causa della priorità: 
usando le parentesi si «ha errore A 
(tnva)lcS argument). 

Perciò, se l'operando di sinistra, 
può diventare negativo, bisogna 
memorizzare II segno (con SGN), 
usare il valore assoluto (ABS) e veri- 
ficar# se l'esponente ala pari o di- 
spari per stabilire H segno del risul- 
tato. 

Il simbolo usalo sullo Spectrum è 
la freccia rlvoila verso l'alto; nei li- 
stati appare solitamente un accen- 
to circonflesso {solo la punta delia 
freccia): non è un difetto della stam- 
pante, la quasi totalità del compu- 
ter usa questo simbolo. 

Annotiamo Infine che quando si 
tratta di calcolare it quadrato o il 
cubo di un numero piccolo è decisa- 
mente preferibile, per motivi di velo- 
cità, eseguire una più banale molti- 
plicazione, 

CAPS SHIFT 

IH H" maiuscola. 

MODO "E M 

Estrazione di radice quadrala 
(SGR n). VI restituisce la radice qua- 
drata deir&rgomenlo, che può esse- 
re un numero o una variabile. Un ar- 
gomento negativo dà ovviamente 
onore (fnvatid argument)- 


SYMBOLS. IN “E” 

Funzione CIRO LE. Questo, Ferri- 


ni docet, “lo dice la parola stessa": 
disegna cerchi (per la cronaca, in 
senso antiorario). Dovete fornirgli 
tre argomenti, x, y, J jc 1 primi due in- 
dicano le coordinate assolute del 
centro sul display-file. Indipenden- 
temente da dove si trovasse prima 
la penna virtuale dello schermo; il 
terzo rappresenta II raggio, misura- 
to in "'display-unit" (cioè in pixel), 
Se il raggio manda la circonferenza 
fuori dalla finestra dello schermo, 
Si ha una situazione di errore (Inta- 
ger oui of range). 

Un'Informazione che a volte può 
tornare utile; al rioni ro dall'esecu- 
zione, la penna virtuale resta posi- 
zionata sulla circonferenza sempre 
nella stessa posizione relativa, nel 
quadrante destro Inferiore (x+fy-, 
analiticamente parlando), qualche 
pixel più In basso rispetto al diame- 
tro orizzontale. 


3 

NORMALE 

Istruzione LOAD, cioè '"carica": 
da nastro, mlcrodrive, c altro. Que- 
sta è la primissima istruzione con 
cui solitamente si Incontra l'utente, 
anche (anzi, soprattutto) quello me- 
no programmatore, che utilizza lo 
Spsctrum solo con cassette già 
pronte. Ne abbiamo parlato più vol- 
te; la sintassi è la stessa di SAVE 
(eh. n. 13 pag. 54). 



44 - Sinclair Ccmpuier 


Or 


Caro piano media, prendi le vitamine 



SMOfldcmana, il madia pdi vita mi dico pv indicato in Lùirbrmiio. (Vdarring B) 70riki capi* UwhinHjndi - (Marnine] C| 7K)nnHo leMoà k*ì oun tento do dante del an- 

nuo ■ (Marnine A, £, Di Network cS ^tesiate a inseraoni gratuile-ùime copertar-a nqataole. Pasdocja e inforcati; lÀore spano. Lamie bf®Cff**òijU70rrA} ^opie 
e dei 700m3a tenori è stato sperimentato con suesBKO anche sui piani media pio dbulid. Gsrtlnancfcpiicai; Netairw, 




Le variabili 
di sistema 
del QL 


N.B.: W significa che la variabile 
è a 16 Hit, L che è a 32 bit e fleti* è a 
6 bit. Pertanto, le PEEK e te POKE ri- 
ferite alle variabili di sistema do- 
vranno avere II giusto su [fisso: dove 
c'è B usate PEEK e POKE normali; 
dove c'è W usate PEEK W e POKE 
W; dove c'è L osale PEEK L e POKE 
L. 

W $28000 Identificazione 
L I2B004 puntatore SV. HEAP 
L $26008 puntatore Al primo spa- 
zio libero nell 'atea heap 
L $28000 puntatore SV. FREE 
L $28010 puntatore SV, BASIC 
(puntatore alto staek del basic) 

L $280 1 4 puntatore SV. TRNSP 
L $2801$ puntatore al primo spa- 
zio libero nell'area dei programmi 
Iranslontl 

L $20010 puntatore SV. RESPR 
{equivalente al RESPR del superba- 
slc) 

lì $26020 puntatore SV. RAMT (ul- 
timo byte RAM + 1) 

W $2302 E numero causale (Incre- 
mentato ogni 72 microsecondi): 
analogo alta variabile di sistema 
FRAMES dello Specttum 
W $28030 contatore degli inter- 
rupts non eseguiti 
B $26032 sa è diverso da 0, state 
usando un tv; se è uguale a 0, un 
monitor. Si basa sul tasto premulo 
all'accensione: Fi o F2 

B $20033 È uguale a 0 se lo 
schermo è attivo, e diverso da 0 se 
non lo è 

B $28034 valore attuale del regi- 
stro di staio MC 

B $28035 valore attuale del regi- 
stro inlerrupt PC 

B $28037 numero stazione net- 

- Sindar Computer 


aork. SI modifica con II comande 
NET X, dove x è II numero di stazio- 
ne desiderato 

L $28038 puntatore alla Usta dei 
driver» dell' Inlerrupt livello 2 

L I2&03C puntatore alla Usta dei 
pollerJ ta&ks 

L $28040 puntatole alia lista dei 
task dello scheduler 

L $20044 puntatore alia lista dei 
device driver» 

L $28048 puntatore alla lista dei 
directory device driver® 

L $20040 puntatore alla quaue di 
tastiera 

L S28050 puntatore alia tavola dei 
vettori e del iraps 

fi ■ continua) 


Glossario 

QUEUE; un bulfer usato per 
flnputfoutput, lungo generalmente 
120 bytes; le struttura di una quaue 
verrà esaminata in uno dai prossimi 
articoli, 

HEAP: catasta; uno spailo usato 
dai programmi UM per daii e staclt- 

TRARS; istruzioni UM equivalen- 
te alla RST dello Z80 {ce ne seno 
181: equivale a un Interrupi, e chia- 
ma la routine puntata dall'apposito 
vettore. 

VETTORE: puntatore a una routi- 
ne, può essere a 8, 10 o 32 bit; nel 
QL quel li Su ROM sono tutti a 16 bit, 

TAVOLA: area di memoria adibii a 
a immagazzinare dati o puntatori 
dello stesso tipo; per esemplo, la ta- 
vola dei vettori è l'area di memoria 
che contiene tutti i vettori. 

DEVICE DRIVER: routine incari- 
cata di gestire le comunicazioni 
con una periferica; sono peri Ieri che 
lo schermo, l mlcrodrives, le inter- 
facce seriali.,. 

DIRECTORY DEVICE DRIVER: 
routine Incaricata di gestire la co- 
municazione con periferiche di tipo 
complesso per es. con struttura a fi- 
les: microdrivee, Winchester, floppy 
ohe richiedono fuso e la gestione di 
unfio più directeries. 

TASK SCHEDULER: Lavoro che 
la CPU deve eseguire. Routine det 
QDOS, gestita da Inlerrupt, che 
spartisce il tempo della CPU fra i 
jobs attivi: è l'organo di gestione 


dei multitasking 

POLLINO rNTEnftUFTS: *0 ut Ines 
eseguile 50 volte al secondo: per 
esempio scansione tastiera, aggior- 
namento variàbili di sistema; re- 
[resh memoria video... nel QL vi so- 
no tre livelli (priori! à) di interrupi: il 
2, Il 5e il 7; il QDOS usa solo il 2{per 
tastiera e multitasking); gli altri li- 
velli sono a dispostone; il livello 7 
è runico non msscharabile. 



Assembly 


di Robe rio bravitela 


L’assembler 68008 

Questo mese cominciamo a par- 
lare di linguaggio macchina anche 
nel l'ambilo del QL, che come ormai 
molti sapranno è dotato del micro- 
processore 60008, motte potente 
ma anche piu complesso del comu- 
ni microprocessori e 8 bit. 

Per prima cosa analizziamo quin- 
di brevemente la struttura dei mi- 
croprocessore, dalla quale è già 
possibile capire la grandi possibili- 
tà che vengono offerte al program- 
matcre. 

La struttura Interne della CPU è a 
16132 hit, cioè le istruzioni sono 
sempre lunghe 16 bit (word) e devo- 
no sempre cominciare a indirizzi pa- 
ri, meni re fc registri sono a 32 bit 
(long word), fatte accezione par II 
Program Countar, a 20 bit, e per lo 
Siatus Resister, a 16 bil. 

Esistono 3 registri DATA (D0-D7), 
Sui quali è possibile eseguire qual- 
siasi operazione nei formati 8-16-32 
bit; sono Inoltre disponibili per il 
programmatore 0 registri ADDRESS 
{A0-A7), sul quali, sebbene non sia- 
no implementale tutte le operazio- 
ni, sono disponibili alcune interes- 
santi opzioni, come il post- 
incremento è il prerfacremanto o 
l'I n dirizzamelo indicizzato. 




Conrie già accennato prima, oltre 
a guasti registri ci sono anche il 
Program Counter, capace di indiriz- 
zare direttamente 1 megabyte, e lo 
Status Register di 16 tilt, che può 
dirsi diviso in due parti: il byte meno 
significativo contiene lutti I flag at- 
tivati da operazioni condotte su uno 
qualsiasi degli altri registri, mentre 
il secondo byte (ohe come vedremo 
in seguito non é sempre modificabi- 
le} contiene: 

La maschera degli interrupts, co- 
stlrulta dai primi ire bit, dei quali 
però il secondo viene ignorato nel 
660 QB, che può quindi codificare fi- 
no a be livelli di inienupts iquest' ar- 
gomento verrà chiarito meglio in se- 
guilo). 

U flag di modo: indica in che mo- 
do il microprocessore sla lavoran- 
do', dato che nel 66006 sono dispo- 
nibili due modi di lavoro, per non 
causare troppa confusione sappia- 
te per ora che questa distinzione è 
molto otri a affinché i sistemi opera- 
tivi non interferiscano' con i pro- 
grammi. 

il flag di modo TRACE: quando 
questo tlag | saltato il micropro- 
cessore esegue un interni pt ogni 
volta che è stata eseguita una sin- 
gola Istruzione. 

Passiamo ora a descrivere, anche 
sa solo superficialmente, le istru- 
zioni che possono generare più con- 
fusione esaminando un listalo as- 
sembler 6$Ù0éi. 

L'istruzione più potente e versati- 
le è senza dubbio la MOVE, equiva- 
lente alla LO o aita ST di altri micro- 
processori: ha il compito di sposta- 
re dati delire differenti formali. 

L'Istruzione TRAP genera un m- 
lerrupl software, il cui vettore può 
vacare tra 16 diversi; il suo utilizzo^ 
indispensabile per chiamare le rou- 



tlnes dal QOOS, accessibili con Is 
prime quattro TRAP; la TRAP provo- 
ca anche II passaggio da modo 
«ranfie al modo supervisore, che al- 
trimenti sarebbe impossibile ese- 
guire, dato che alia chiamata di un 
qualsiasi programma caricalo 
dal l'esterno il microprocessore si 
trova in modo utente, e che da que- 
sto stalo non è possibile modificare 
lo Sfi, pena un crash di sistema. 


Un esempio; CAPS LOCK 
monitor 

Dopo aver dato un'occhiaia al mi- 
croprocessore, analizziamo il disas- 
semblato della routine che vi pre- 
sentiamo questo mese: si batta di 
un semplice programma che visua- 
lizza io slato di CAPS LOOK diretta- 
mente sullo schermo, essendo il QL 
sprovvisto di un qualsiasi aiiro indi- 
catore, 

La routine non fa uso dei multita- 
sking, che verrà analizzato in una 
prossima puntata, ma è pilotata di- 
rettamente dai sistema operativo 
tramite la variabile 5V CSUB (t long 
word), che In affetti non deve conte- 


nere un puntatore, ma la routine 
stessa, che dovrà essere lunga solo 
quattro byte, appena sufficienti per 
un Salto quindi risolto- caricando 
dafllndirizzo 167B50 uh albo salto, 
questa volta assoluto, in grado di 
puntare alla routine caricata nella 
parte atta della memoria. 

Il programma una volta chiamato 
controlla le dimensioni della fine- 
stra 0, le sott rae una riga e apre una 
finestra esattamente sotto di essa: 
viene poi effettuato un controllo 
Sulla variabile SV. CAPS e in base al 
risultato ottenuto viene chiamata la 
routine di sislema IO.SSTRG per 
stampare il messaggio e la SD.TAB 
per riposizlonare il cursore. 

Per ottenere una copia funzio- 
nante di CAPS LOCK, dovete digita- 
re il listalo BASIC, salvarlo su Mi- 
crodrive .(per non perdere i dàb in 
caso di errori nell'Inserimento dei 
Godici), e dare semplice manta li 
RUM. 

il programma provvedrà a salva- 
re su Microdrive it ling. macchina e 
una riga BASIC adibita al carica- 
mento dei due salti relativi; subito 
dopo questa riga si cancellerà: da 
quel momento la routine sarà atti- 
va. 


collaborazioni 

Chi desidera collaborara alla nuova sezione SPAZIO QL può farlo 
nella stessa torma prevista per lo Spectrum, inviando testi e pro- 
grammi alla redazione. Si raccomanda di scrivere a macchina o con 
word processor. 

I programmi dovranno essere listati e registrati su cartridge, che 
verrà sostituita a strette giro di posta con una cartuccia vuota; ciò 
non Impegna in nessun modo la redazione a pubblicare il materiale 
Invialo. 

II QL User Club di Milano, che dura lo SPAZIO QL su Sinclair Com- 
puter, ò disponibile per contatti e scambi di informazioni con tutti gli 
utenti QL, Il recapito è: 

QL User Club Milano 
cfo Marco Mussi ni 
via Tajani 6 
Z0133 Milano MI 
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Super 

basic 

a cura di' M, Muggini 
OL User Club Milano 


Prenderemo In esame le singole 
istruzioni che ri Superaste cl offre 
cercando di analizzarne e fendo 
modo d’uso* pregi e difetti, e di fare 
ogni volta un parallelo con la corri- 
spondente istrione del basic con- 
venzionale. 

FOR 

In Superbasic se ne hanno due ti- 
pi, funzionalmente equivalenti ma 
formalmente differènti; essi sono la 
forma breve e la lorma lunga. 

Un loop FOR.„NEXT In forma bre- 
ve & mollo simile airequivs lente ba- 
sse standard; la sintassi fondamen- 
tale è 

FOR vari abì = valore iniziale 
IO valore /foste STEP fnerfimenfo; 
{is frulloni da ripetere}; NEXT varia- 
bile 

Esempi; 

(il FOR por = 1 IO 100 STEP 4.5; 
PRINT pqr: NEXT pqr 

(3) FOR scrivi = 29.2 TO 66; 
PRINT u 'n = ,r ; scrivi; NEXT scrivi 

(2) FOR c = 1E6 TO 1E7 STEP 
1É2: prin-t e; NEXT c 

(4) FOR breve = 100 TO 200: primi 
breve 

(5) FOR out - 1 TO 10: FOR in = 
olii TO 20 STEP 3; PRINT out, in! 
NEXT in: NEXT oui 

(6) FOR super-loop - 1 TO 10, 3 
TO 15, À% TO A% +8, - 2 TO 4-9 
STEP 5, 100 TO 1000: PRINT super- 
loop 


Notate che: 

1 - le variabile di un ciclo FOR 
può solo essere Moating poknt;, ciò 
spiega in parte la relativa lentezza 
dei FOFUNEXTdel Superbasic; sul 
QL le variabili floating polnt hanno 
un range immenso L; 

2 ■ l'Incremento può essere omes- 
so. in questo caso* il computer as- 
sume per default II valore 1; 

3 ■ alcune spaziature non sono 
necessarie; 

4 - la variabile dtopo il NEXT non 
può essere omessa (come nel basic 
Microsoft); 

5 - le istruzioni da ripetere posso- 
no essere più di una; 

6 ■ il nome deila variabile FOR 
può essere lungo fino a 255 fra let- 
tere, cifre e separatori ( ), e differen- 
za dello Specirum* che permette al 
massimo un solo carattere alfabeti- 
co; Ciò permette di avere più di 26 
cicli FOR.., NEXT annidati e di ren- 
dere autoesplicativo il nome della 
variabile di controllo; 

7 - i parametri del ciclo 
FOR... NEXT possono essere 
espressi in forma esponenziale, o 
anche essere delle variabili (in que- 
sto caso anche ini ore o stringar ven- 
gono convertite automaticamente 
nel giusto formato); 

fl - forse la maggior comodità del 
FOR breve, Il NEXT può essere 
omesso (v. esempio 4}; sa si omette 
il NEXT. non e evidèntemente possi- 
bile annidare i cicli brevi (esèmpio 
5); 

9 - infili*, la giù importante inno- 
vazione; la possibilità di definire di- 
versi intervalli di valori per la varia- 
bile di controllo (esemplo 6): si può 
anche specificare uno STEP diverso 
per ogni 1 intervallo. Questa possibi- 
lità ne rende esi ternamente flessibi- 
le l'uso. 

Vediamo ora le peculiarità del 
POR.. NEXT lungo. Un esempio di 
come funziona à il listalo 1. 

itisi s pag. 40) 

li NEXT viene soppiantato dalla 
nuova END FOR (usata per definire 
la fine di un ciclo); ora NEXT svolge 
ia funzione di ripetere il ciclo prima 
che siano state eseguite tutte le 
istruzioni al suo interno: Insomma 
un END FQR parziale, eseguito qua- 
lora siano state raggiunte certe 
condizioni, che richiedano di ripete- 


re Immediatamente ii ciclo {linee 60 
e 79); se queeto NEXT dovesse pro- 
vocare la fine del ciclo (per aver rag- 
giunto il limite' di 10 tentativi) l'ese- 
cuzione del programma prosegui- 
rebbe con la prima linea incontrata 
appone usciti dal ciclo (cioè la 90) * 
non, come sullo Spectrum, con 
quella immediatamente seguente II 
NEXT stesso. 

Naturalmente è possibile fare a 
meno di END FOR e usare II NEXT 
alla vecchia maniera, anche se è de- 
cisamente consigliabile fare uso 
del nuovo sistema che il Superbasic 
mette a disposizione. 

Tutte le osservazioni fatte a pro- 
posito del FOR breve rimangono va- 
lide, fatta eccezione logicamente 
per le caratteristiche che io distin- 
guono dalla forma lunga; è inutile 
sperare di poter omettere il NEXT in 
una struttura cosi complessa. 

Notate infine l'istruzione EXIT In 
riga 60. che permette di uscire dal 
loop senza creare problemi di sorta 
con lo siacfc; quando viene esegui- 
ta, il suo effetto è quello di far conti- 
nuare l'esecuzione con la prima 
istruzione al di fuori dal ciclo {come 
un GOTO 90). 

DEF PROC 

Rappresenta, insieme con la ge- 
mella DEE FN, l'Innovazione più ap- 
pariscente. 

Le due Istruzioni sono fondamen- 
talmente simili e la esaminiamo 
una di seguito all'altra. 

(ter A pag. 40} 

Il programma del listato 2, una 
comoda utility per formattare a ripe- 
tizione lo cartucce più "taccagne 1 ", 
contiene alcuni semplici esempi di 
ciò che si può fare con la DEF 
PROC. Avrete certamente notato 
che le sua impostazione generale 
somiglia molto a una più familiare, 
a Cioè la G-OSUB-RETUHN, cui corri- 
spondono DEF PRQC e END DEF. 
La nuova struttura presenta vantag- 
giose differenza; 

1. Modificare I numeri di linea del- 
la subroutlne non compromette II 
buon funzionaménto dei program- 
ma, perche per chiamarla non si 
usa più un numero di linea, ma una 
specie di LABEL (etichétta)* Il cui 
valore viene automaticamente ag- 
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g ternato dal computer ogni volta 
che si dà RUN o che sJ modi fica il IF 
state: questa operazione viene se- 
gnatala dal messaggio "PROGfFH 
cteared". 

2. Il nome della subroutine può 
avere una lunghezza guatai aal, (fino 
a 255 caratteri), quindi sufficiente a 
scrivere intere frasi. Ne discende la 
possibilità di rendere chiari e autoe- 
splicatlvl 1 nomi della routlnes, in 
modo da capire a che servano, sia 
quando se na trova la chiamata sia 
quando se ne trova sa definizione. 
Non c'è paragone* quindi, con i ne» 
buiosi numeri di linea del basic con- 
venzionale. 

3. La leggibilità a la chiarezza in- 
lerpr elativa osi statati migliorano 
motto, rendendo sempre meno ne- 
cessario l'uso di REMark. 

4. Se una subrettine ha bisogno 
di alcuni parametri per funzionare, 
è molto più facile capire di che pa- 
rametri si tratta e soprattutto che si 
riferiscono alla sybrout ine: confron- 
tata questi due listati; 

10 LET XXX = 1, 25E23; LET 
At = PI PPG”: LET WEO = 2 * T* 2: 
GOSUB 3247 

10 SGRIVLyALOR1 1. 25E23, ''PIP- 
PO", 2+ T'2 n alt ra_vari abile 

A parte l'evidente compattezza 
del secondo, si noli anche che è Im- 
mediato li collegamento logico di 
quei valori alla chiamata della su 
b routine: si pud forse dire te stesso 
del primo caso, ma non vedendovi 
assegnare alcun valore ad "altra va- 
riabile", si pub pensare che essa 
non rientri nella lista paramani ri 
della subroutlne; nel secondo caso 
sparisce anche questa incertezza si 
vedono subito tutti i valori coinvolti. 

5. Un.' alba fondamentale diffe- 
renza si cela in questi due listati, 
apparentemente equivalenti; 

10 FOfì F = 1 TO 1G:G OSUB 
20; N EXT 1 

20 PR|NT'’|s"; I; RETURN 

10 POR 1 = 1 TO IfrYVRlTEI 


20 DEF PROC WRFTE 
fNJMERO);PRiMT ,, l = 
NUMEROSO DEF 
Il primo fornisce queste output: 

1=1 

1-2 

1 = 3 

1 = 10 

1=11 

RETURN W1THOUT GOSUB 

Infatti, terminalo il ciclo principa- 
le, il computer esegue la linea 20 
come una linea normale, visualiz- 
zando perciò "I = IT’ e, incontrando 
Il RETURN, emette il messaggio 
tremore. 

In Superbeste età non avviene; 
quando l'interprete Incontra delle 
D EF PROG, non cerca di interpretar- 
le, me le salta direttamente, esatta- 
mente come con DEF FN. Anche 
questo aiuta a ridurre i bug del pro- 
grammi basic. 

6. Per potente che sia, la DEF 
PROC resta pur sempre una strette 
parente dal GOSUB, e quindi 
ancITessa necessita di uno sfack 
appositamente riservato, allo sco- 
po di ^ricordarsi» da dove la suòno u- 
line è stata attivata, in modo che, a 
esecuzione avvenuta, si possa tor- 
nare al l'istruzione immediatamente 
successiva alla chiamata. Come 
ogni altro stack anche questo non 
ha dimensioni Illimitate e quindi se 
io si riempie in continuazione ri- 
schia di superare! ^limiti di sicurez- 
za», impedendo l’esecuzione di altri 
GOSUB e bloccando il com poter- 
si provi a digitare questa riga su 
uno Spectrum e su un QL: 

10 GOSUB 10 

Dopo 2$ secondi di esecuzione 
nello Spectrum 4SK, e dopo 50 se- 
condi nel QL inespanso, il computer 
si arresta emettendo il messaggio 
di errore QUT OF MEMORY, dovu- 
te al saturamente’ del lo staci?; dopo- 
diché lo Spectrum ri fiuta qualunque 
comando, eccetto NEW, mentre il 
QL terna subito e automa! marnante 
alla normalità, ripulendo lo sfack. 
Problemi dello stesso tipo sorgono 
anche se si fa un uso sconsiderato 
della rteorsivltà: por esempio una ri- 
ga come 

IO DEF PROC VA(;VA(;ÉND DEF 


{impostare VAI -ENTER- per far 
partire il programma) 
dà luogo alle stesse reazioni. Se 
però si fa in modo che il numero del- 
le Iterazioni sia limitato, non appe- 
na queste saranno terminata 11 com- 
putar il computer eliminerà automa- 
ticamente lo stack dalla memoria. 

Ciò permette di scrivere delle su- 
brouilne ri corsive, che si autemehia- 
mano (non al l'infinito!:), senza i ri- 
schi cui si andrebbe incontro usan- 
do GOSUB. 

Nel l'ambito della DEF FROC ci 
sarebbe ancora da tene un discorso 
sulle variabili locati; ne parleremo a 
proposito di DEF FN. 

Come vedete, DEF PROC é deci- 
samente vantaggiosa rispetto al 
suo "antenato” GOSUB, e costitui- 
sce uno del punii di forza del Super- 
basic per la programmazione strui- 
turata. Non c'è da stupirei, quindi, 
se la Sinclair stessa ha spietata, 
mente definito "ridondante" il GO- 
SUB, Implementandole per compie- 
t eoa; è realmente possibile fame a 
meno. 


DEFina FuNction 

Consiste In una versione molto 
estesa deila vecchia omonima cui 
siamo abituati, usando altri tipi di 
basic. 

Il principale svantaggio dalla nor- 
male DEF FN era la scarsa versatili- 
tà; la definizione poteva al massimo 
contenere espressioni siringa o no- 
martene più o meno lunghe; per 
esempio: 

10 DEF FN A(H) = R*Fff3. 14 

Che ritorna l’area di un cerchio di 
raggio R. 

Queste tipo di DEF FN può basta- 
re in molti casi, ma talora si sente il 
bisogno di inserirvi dei comandi, ad 
esempio dei FOR...NEXT, o magari 
di renderà ri corsive le nostre funzio- 
ni, per esemplo per implementare la 
funzione di fattoriale; 

IO DEFrne FuNction fatt {numero) 

20 IF numero - 1 then RETum nu- 
mete:ELSE RETum numero * fatt 
(numero-1) 

30 END DEE fatt 

La linea 20 contiene tutte le ncvl- 
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tà; innanzitutto viene effettuato un 
controllo sul parametro ricevuto; se 
e 1, viene ritornato il numero ates- 
so; altrimenti viene prima moltipli- 
cato per se stesso diminuito di 1. 
Questo processo continua a decne- 
mentare la variabile, finché II suo 
valore diviene pari a 1 ; in questo ca- 
so Il ciclo ricomincia In senso inver- 
so, per il -trasporto* dai risultati in- 
termedi fino alia prima subroutlne 
chiamante; infine viene ritornato H 
ri sul lato complessivo al basic, Tut- 
to ciò sarebbe impossibile con la 
DEF fisi dello Spectrurm digitando 
queste righe 
10 OEF FN a& = FN aQ 

FRI NT FN a(| 

si manda il computer In Hit- dopo 
alcune iterazioni, il computer stam- 
pa «FA HAMSTER ÉFtROft* e se si 
chiede il listato si noterà che è sta- 
lo danneggiato da strani simboli 
lampeggiami; dopo alcune pressio- 
ni di tasto, Il computer s'inceppa, 
Sul QL lutto ciò non avviene, ec- 
cetto, ovviamente, l'inevitabile sa- 
turazione dello siack. 

Per quanto riguarda DEF FN, non 
c r ò molto altro da dire. In quanto es- 
sa è In tutto e per tutto simile a DEF 
PROC. La sostanziale differenza è 
che una FuNzione deve potar pas- 
sare al programma chiamante un ri- 
sultato, e questo è possibile me, 
diante Fuso del comando RETURN 
nome variabile, ecco un esempio: 
10 DEF FN MAX (A,B) 

20 IF A> B THEN RETURN A 
30 IF B>A THEN RETURN B 
40 IF A = B THEN HETURN A 
50 END DEF 

Questa funzione ritorna II mag- 
giore fra due numeri; se i due nume- 
ri sono uguali (linea 40) ne ritorna 
uno fa piacere vostro). RETURN può 
essere seguita anche da espressio- 
ni piO complesse, per esempio 
10' DEF FN lNSULTI(NOME$): RE- 
TURN NOME$ 5 l ',SE! UN 
ASINO !”:END DEF 


20 INPUT '"COME TI CHIAMI? 1 ’; 
Aì; FRI NT |N&UÌ-TI$(A$}:GOTO 20 
Notate che la variabile usata nel- 
la chiamata può non aveie io stesso 
nome di quelle Impiegata dalla fun- 
zione; In pratica, i parametri passati 
alla routine acquistano nel suo am- 
bito un altro nome. 

Notate soprattutto ohe si vuole 
che la funzione ritorni un parametro 
stringa, il euo nome deve terminare 
con un T, mentre se si desidera 
che il parametro di ritorno sia nu- 
merico li dollaro non cl deve ovvia- 
mente essere, 

Se questa regola non viene rispetta- 
ta, Il computer tenta di convertire il 
valore desunto dalla RETum nel for- 
mato indicato da questo suffisso, e 
se non ci riesce si blocca con II 
messaggio l, ERROR In EXPRES- 
SION"; non ò facile convenire "PiP- 
PO" In formato fioating point! 

Per concludere l'argomento DEF 
PROC e DEF FN ci resta da parlare 
delie variabili locali. 

10 FOR 1=1 TO&OUTPUT 
20 DEF PROC OUTPUT 
30 FOR 1= 1 TO 5; FRI NT "CIAO” 
40 END DEF 

A prima vista si può pensare che 
dando RUN si vedrà apparire 15 vol- 
te la scruta "CIAO’'; in realtà loco, 
se non stanno cosi; apparirà per 5 
volte soltanto. Queste Irregolarità è 
dovuta al (atto ohe la stessa varia- 
bile viene usala sla dal programma 
principale sia dalla subroutlne. 

Ecco quello che succede passo 
passo; 

-linea 10: viene preparato un loop 
da 1 a 3; I = 1 

-linea IO; viene richiamata, la su- 
broutine OUTPUT- 
-linea 20; il computer localizza la 
subrouting. 

-linea 30; viene preparato un, loop 
da 1 a 5, con! rollato dalla variabile I. 
-linea 30: 1 = 1 

-linea 30; stampe delia scritta 
"CJ ACl"; I =' 2 

-linea 30; stampa della scritta 
"CIAO"; 1 = 3 

-lìnea 30: siampa della scritta 
"CIAO"; 1 = 4 

-linea 30: stampa della scritta 
"CIAO"; 1 = 5 

-linea 30; stampa della scritta 
”GIA0"; fine del ciclo 


■linea 40; la routine passa il con- 
trollo ài programma principale 
-linea IO; I e maggiore del limite 
stabilito (3); fine del ciclo. 

Con un programma semplice co- 
me quello sopra riportato la corre- 
zione à semplice (o meglio, l'errore 
non dovrebbe venire commesso), 
ma quando i programmi hanno una 
certa mole può risultare difficoltoso 
controllare I nomi delle variabili 
usate ir tutti i punti del programma; 
d'altronde può essere necessario 
che la routine interagisca con le va- 
riabili del programma principale. 
Per rendere possibili entrambe le 
cose. Il Superbiste à dotato del co- 
mando 

LOCAL nome variati, {nome 
variate, nome varietà,-) 
che fa si che le variabili specifi- 
cete acquistino un valore diverso 
da quello che hanno normalmente: 
un po' come I parametri delle FuN- 
zloni. In somma, ae Inseriamo la li- 
nea 

25 LOCal I 

Il programma gira regolarmente; 
il computer considera la due varia- 
bili I come se avessero nomi distin- 
ti, eliminando quindi ogni possibile 
interferenza. 

Concludendo, rammentiamo che 
in virtù della possibilità (apparente} 
di estendere II numero delle parole 
chiave del QL mediante DEF FRQQ 
e DEF FN, sulle pagine di "spazio 
QL” verrà pubblicato a puntate un 
gigantesco agglomerato di nuove 
PROCed i ure e FuNzIonJ che presto 
vi metterà a disposiziono quasi @0 
nuove keyword®. 
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Seikosha rì invita nel meraviglioso mondo delle sue colonne che ti consente utilizzi anche di tipo gestione te- 
stamenti. Se lavori con un computer Sinclair QL. non puoi 

Un mondo fatto di progresso, di elevatissima qualità, rinunciare agli BO caratteri al secondo e SO colonne 
velocità e silenzi osità di stampa, anche Near Letter Qualìty a 20 caratteri per secondo 

Setkosha oggi ti propone la più vasta gamma di del modello SP S0Q IQL. 

stampanti nate per esaltare le prestazioni di ogni tipo Se poi le tue esigenze sono altamente professionali, la 

di computer. stampante BP S420 A con 136 colonne. 420 caratteri 

All'altezza di ogni esigenza, anche della tua che usi i al secondo, anche Near Letter Quali ty a 1 04 caratteri 

Personal Computer Sinclair. al secondo, rande ancor più grande ii tuo Sinclair QL. 

Piccola e compatta, dalle prestazioni generose. GP SO S Setkosha e Sinclair: una coppia che va d'amore e 

con 35 caratteri al secondo e 32 colonne, è la d 'accordo, 

stampante ideale per risolvere con soddisfazione le 
prime esigenze di stampa di chi usa lo ZX Speotrum. 

Se possiedi anche l'interfaccia 1, niente di meglio della 

stampante GP 500 S con 50 caratteri al secondo e SO Distribuzione esclusiva: G3C Divisione R- 







1 25 games più votati 

dai nostri lettori: 

1 . Knight loro 

(Ultimate) 

2. Sabre Walt 

(Ultimate) 

3. Match Pdint 

(Psion) 

4. Ch&quered Flag 

(Psion) 

5, D.T. Decathlon 

(Ocean) 

fi. Mugsy 

(Melbourne) 

7, Ant Attack 

(Quicksilva) 

8. Underwurlde 

(Ultimate) 

9, Jet Set Willy 

(Soft. Projects} 

1D, Jet Pae 

(Ultimate) 

11. Atic Atae 

(Ultimate) 

12. Match Day 

(Ocean) 

13. Manie Miner 

(Soft Projects) 

14. Ghost busfer 

(Adi Vision) 

15. Poie Positinn 

(Alari) 

16. World Cup Football 

(Artic) 

17. Fighter Pflot 

(Digital Integr.) 

16. Hulk 

(Adventure Int.) 

19. Psytren 

(Beyond) 

20. Hóbbit 

(Melbourne) 

21 . Lords of Midnight 

(Beyond) 

22. Stop thè Express 

(Psion /Hudson) 

23, Flight Simulation 

(Psion) 

24. Maziacs 

(Dk p Tronics) 

25. Sporte Mero 

(Act ivi sion) 



I Tipi strutturati passone essere 
definiti al irai) arso aggregazioni di 
tipi semplici; I meccanismi di strut- 
turazione sono quali ro: array, re* 
card, set e file. 

Array 

Un array rappresenta u-na colle- 
zione ordinata di un numero fisso di 
elementi, tutti delia stessa II pò (flg. 
IO). Non cè nessun vincola sui tipo 
degli elementi, che può essere sem- 
plice oppure si rutto rata. GII el* 
menti déH’array possano essere se- 
lezionati tramite uno o più Indici, il 
tipo dell'Indice può essere un qual- 
siasi tipo scalare, non necessaria' 
mente numerico- Per array con più 
Indici sono legali differenti notazio- 
ni, per esemplo: 


Record 

Un record rappresenta una colle- 
zione di un numero fissato di com- 
ponenti (detti campi) di tipi divev&i 
(flg. 11); ogni campo è de noi alo da 
un Identificatore, e non possono es- 
serci due campi delio stesso record 
con il medesimo identificatore. 
Esempi: 


P/Q. 40 * TiPO ARftXt 


array U , , 5, 1 
equivale a 
array tl . .51 oH 1 array t 


IBI o* integer 

IBI of integer. 


Esempi s 

type giorno = 0 un s *ar jflier t gi □ , veti *sab ,doml ; 

bar » (puh P pi rata, harry 'sf ; 
var tabella e array [giorno fbar 3 qì [aperto, ehi uso! ; 


tabella imar s pirataJ := aperte; 
if tabella [j:o, pub 3 3 chiuso ihen ... 

Casi " j le seguenti : 

type mese * array [Ì..ÌJ] of integer; 
var x t meie; 

type giorni * 1 , . 31 ; 

mese = array [giorni 1 a<f integer; 

var x i mese; 

var x ; array [1..3I3 of integer ; 

sono tre dichiarazioni equivalenti. Ancora un case: 

type anno * array II.. 121 of nese; 
mese a array CI., 31 3 giorno? 
giorno = array Et. *34] nf ora? 
ora = [piacevole , noiosa) ; 
var it i anno; 

x denota l ' anno x 

h [53 denota il quinto asse dell' anno * 

k [53 iTì denota il settimo giorno dei quinto 

mese del 1 ' anno x 

x E53 173 1 13 J denota la tredicesima ora del settimo 
giorno del quinto mese dell' anno x 


un po' di 
Pascal 

a cura di Monica Fumagalli 




Esempi 

tyae teapo - record 

<rr* s e, .24; 

* lauto, secondo ; 0, , 59 

&fld; 

var x ; tempo* 


x . or a i- ì ?; 
x . si 2. fm t c :■ 45: 
x . seconde i - 33 5 

type aruiMie = record 

specie 1 array E1..20J of char; 
sappe i iategèr* 
dmnestizo : poplean 
endf 


Record Varienti 

Un recond può oonlen-ene anche 
una parte vallante, che è introdotta 
dalla parola chiava CASE 0 consi- 


ste in un ceno numero di gruppi di 
campi alternativi, assodati a dige- 
renti valori det eiettore del CASE. 


Esemplo: 


type data = record 

mese i taen ,f ab .aar ,apr r nag ,gi g, log, set , 
ott|POV t dic) 
y 1 orno : 1 . , 31 ; 
anno t integer 
end; 

ongirte ^ (naz innate, estero) ; 
studente - record 

nomo ? array tl..2i3J of charj 

eat api nasci U ! datai 

scuola ; array 11,. 10] nj char; 

provenienza : origine; 

cade origine o-F 

nazionale s fcitta ' rarr a? C1..2BJ 
of char! 1 * 

estero : [nazione ! array [1..101 
of cnar; 

citta' ; array CI,, 20: 
of crtar; 

11 per«es»opogglorno;dàteJ 

end; 


Set 

Un set ffig. 12) rappresenta un insie- 
me di vaimi costituiti da tuttF I sol- 
teine lami di un tipo scalare detto ti- 
po di basa. Per esemplo se conside- 
riamo come tipo di base IF seguen- 
te: 

type ingredienti = (lette, farina r 
burro, irove, sale, zucchero}: 

possiamo avere I seguenti sot- 
toinsiamh 


[latte, ferine, zucchero}, 

[burro, uova, saie], 

[ferina}, 

che sono ire dei possibili valori 
del tipo: 

type ricetta = set of ingredienti: 
Un insieme vuoto può essere de- 
notato da una coppia di parentesi 
quadre: [ j 


Esempi: 

type numeri = set of 0. 134; 

type legno = set of (guercia, no- 
ce, acero, pino, betulla); 

type tabella = sef of booiean ; 

type perde = sei et cher. 

File 

Un file (fi 0. 13) tapp rosoni a una 
sequenza di un numero non fissato 
di elemenll, tulli delio stesso tipo 
■(eertipiìce 0 strutturato). Gli elemen- 
ti componenti non possono però es- 
sere di tipo file, sono quindi proibiti 
(ne ot file, 

Si può accedere al componenti di 
un File scio in ordine sequenziale e 
a un solo componente per voli a, La 
dichiarazione di una variabile F di 
tipo FILE crea automaticamente 
una variabile, dòtta file-buffer, che è 
dello stesso tipo dei componenti 
del file, ed è denotata dal simbolo 
f: Guasta variabile non fa parte del 
file ma, tramite le prlmllive PUT £ 
GEI, permette l'accesso In scrittu- 
ra e In lettura. 

Non essendo possibile l'accesso 
diretto, esiste un Insieme di funzio- 
ni e procedura predefinite che ope- 
rano sul file e realizzano la connuni- 
nazione col programma: vediamo 
quali sono: 

Funzione END-OF-FILE: EOF (F) 

Ha un risultato di tipo booiean, 
può essere utilizzata per verificare 
se ò stata raggiunta la fine del file. 
Se EOF (F) è TRUE allora la variabi- 
le F è indefinita, se invece egf (F) è 
FALSE allora F contiene l'elemento 
del file sul quale slamo posizionati. 
Quando si sta creando un flFs EOF 
(F) è sempre TRUE. 

Procedura RESET: RESET (F) 

Questa procedura apre il file In 
lettura e posiziona F sul primo eie- 
in unto, se F è vuoto allora EOF 6 po- 
sta a TRUE e F è indefinita, altri- 
menti EOF è posta a FALSE e f 
contiene Fi valore del primo elemen- 
to. 

Procedure GET: GET (F) 

Permette di posizionarsi sulTele- 
mento successivo di un file dopo 
averlo aperto in lettura; ee tale ele- 
mento esiste, il suo valore è acces- 
sibile tramile F s EOF è FALSE, al- 
tri man-ti EOF è TRUE e F è indefini- 
ta. Un tentativo di GET quando EGF 
vaie TRUE oppure quando il lite non 
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è sialo aperto in lettura causa 
l'uscita dal programma. 

Procedura fìEWRITE (F) 

Permette la generazione di un 
nuovo file afo ì’epertura in seri (tura. 
Procedura PUT: FUI (F) 

Permette di aggiungere un nuovo 


elemento a un file precedentemente 
aperto in scrittura; il valore di que- 
sio elemento deve essere memoriz- 
zato nel file buffer F. Se si cerca di 
eseguire una PUT senza avere aper- 
to il file si provoca l'uscita dal pro- 
gramma, 


PACK e UN PACK, 

Puntatori 

Uri tipo puntatore rappresenta un 
Insieme di valori che servono a 
"puntare" ai dati e contengono l’In- 
dirizzo dell’elemento puntato. Un 
puntatore è un meccanismo parti- 
colare ctie si differenzia da quelli vi- 
sti finora, perchè permette al prò- 
grammatore di costruire strutture di 
dati variabili in dimensioni e forma; 
le componenti di queste si ruttum 
possono venire create e di strutte di- 
namicamente durante l'esecuzione 
del programma. Supponiamo di ave- 
re la seguente definizione di tipo: 

fype P = T; 

var Y : P 

dove T è un tipo precedentemen- 
te definito; le variati il di tipo P sono 
quindi dei puntatori a variabili ano- 
nime di tipo T. Per operare su que- 
ste variabili anonime si utilizzano le 
procedure predeflnlte NEW a DI- 
SPOSE; 

NEW (Y) crea una variabile di tipo 
T anonima e di valore da definire e 
ne carica l’Indirizzo in Y; 

DISPOSE (V> distrugge le variabi- 
le puntata da Y. 

É possibile segnalare che un pun- 
tatore non riferisce nessun elemen- 
to assegnandogli la costante prede- 
finita NIL 
Esempio: 


Esempio: 

t y p e nasi» Igen, f eternar ,apr , BAg^giu , )ug , ego, set T ott , 

ncv, dio $ 

setti irarta B ilun, iser ,mer jgi o, ven t sab ,dOrt) ; 
appuntamento - record 

mesa 3 mesi: 
giorno ; settimana; 
ora t 0. . 24; 

Minuto i È. i5? 
end; 

agenda = fife ni appuntamento; 
var my agenda : agende; 
app t appuntamento; 


resrite i*y agende) ; 
myagentfa^. mese t » apr; 
mya.gen da' 1 , giorno t- gio; 
myagenda*. or a : = 15; 
myegehda'-. Burnito 38; 
put tmyagenda] ; 

reset (ayagenda); 
app i- Ryagende A ; 
get (myagendaJ | 


Inserisce un nuovo 
elemento nel file. 


Prel Èva un elemento 
dai f i le f lo assegna 
«Ha var. ape e si 
posiziona sul 


Tipi Packed 


Come si pub notare dalia carta 
sintattica dei tipi, è possibile per- 
mettere alia definizione di array, re- 
cord, set e file la parola chiave PAC- 
KED- Questa operazione non influi- 
sce sulla semantica della definizio- 
ne ma serve per risparmiare mene 
ria, compattando è valori del tipo 
strutturato: lo svantaggio è una per- 

Ffù.4h-Tim F/IE 


dita di efficienza nell’ accesso ai 
Componenti delia struttura. 

Il prefisso PACKED è parli col ar- 
mante utile per gli array di caratteri, 
perchè permette il confronto e l’as- 
segnamento diretto fra stringhe in- 
vece che carattere per carattere. È 
possibile ^Impaccare" e "dlsimpac- 
care" un tipo tramite le procedure 


Esempio: 

type lista = A nodo; 
noda * record 

info : integer; 
prò» ; lisi* 
end; 

ver list ; lieta; 


ne» (listi 
listante := 155 
li stupro* i* rii 1 ; 


< FILE H) — 0- 


P/ó, 4L - TtPó PUNTATÓRE 



L’utilità del puntaiorl risulterà 
molto piè chiare quando parleremo 
di ritorsione e della creazione di 
strutture ricorsivi, quali per esem- 
plo liete e alberi. 


(2 ■ continua. La prima parte è ep- 
pàr-ss su! n. 13) 
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Trasforma il tuo Spectrum 
in ZX Spectrum + 



Ecco urta novità &t ima tonte por i po$&o Stori 
di Spectrum : 

lì KJT ORIGINALE SINCLAIR, chts promuovo 
3 q SpoCtrum al grada superiore. 

Non si richiede vasta esperienza . Basta saper 
sa 'dare pochi fili. 


_ 


Descrizione 

O.tà 

Prezzo 

unitario 

Prezzo 

Totale 


Kit 5BK/Plus 


L mOOQ 




I Desidero ricevere il melari aie indicato nella II abel la, a mezzo 
| pacco postale contro a«c$oa, al seguente indirizzo: 


| [ | J 1 1 





ì 1 

CARATTERISTICHE: , Cognome f~\~ | j j | j | j j 






_u 

* Tastiera profe&sionale SINCLAIR i Via [ 

TU 


• Si usa co mo urta normale macchina 
da scrìvere- 

* Compatibile con tulio il software 
e le periferiche Speutrum. 

« Completo di una guida di 80 pagine 
più una cassetta di mostra live* 


a casa 

vostra subito !! 


D *'0 m I ; I ili C.A.F- I li I \ J 


SPAZIO RISERVATO ALLE AZIENDE -SI RJDHIEDE LÉMlSStONE H FATTURA 
Pnrthsi IVA H ! I ! I I 11 I I ! I ^ 


1 PAGAMENTO: 

| Al Anticipato, mediante assonno Panario per l'importo loia 
. dei l'ordinazione,. 

I fi) Contro assegno, in qutì-Sdo caso, è indispensabile vèrsero 
| un accanto di almeno il 5536 de M'importo totale mediante 
yj assegno bancario, il saldo sarà regolato contro assegno. 

¥ AGGI UNGERE: L, 5-0=50 per contributo fisso. 
fJrW I prezzi sono comprensivi di !,V.A L 

1 DJVI$, 

| ryri Via c - Verdi - 23 ' ,J5 

| CACLUU JOQ95 - CU5AKO DILANINO - 
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THE WILD BUNCH 
Speclrum 4BK 
Fireblrd 


Un gara <s avvemiyrs: hanno sparale a un ug- 
na a 1u sai accusate dal delitto. PO" dimoslmre la 
tLa innocenza devi rir'raccian: II vero assassino 
sulla da» della coscrizione data sii 'assisa Lo 
soar Ife ha messe n sue agenle sulle sue tracce 
Che oerpherà gl imprigionarli prima che tu possa 
catturare II membro delia "Wild Qmch" che ha 
DO (il mK5C < crimine e portarla ai cospetto dalla 
Giustizia. 

Ma H servaggio West ft carro molte pericolosa 
L segna evitare di essere uccisi nel cesata ireo- 
Ire -, è in cammina Ira una città c fatila, do s uni- 
che serpente a sonagli e da qualche uellercssa. E 
anche nel saloon un hard. un uhnaoona u una 
bdferina possano rappresentare una rrsnaccia 
mortale se nen si 4 cauli . 

The ìVi d lì un eh ha una struttura abbastanza 
Insetto per un avventura. Per usare un termina 
preso in prestici dai programmi z archiviazionB , 
potremmo dire che t "Menu driver Ciò à noie 
importante: significa che ut ogni snudane o il 
computer a dirci quali wm le azioni che posata- 
ma compre, a per selezionare una D l'altra Op- 
zione frsuHinmnte la prassiane di un tastaci due. 

Pereto, anche se il programma è tutta in lingua 
tflpfese. neh 0 molto faticoso cnllnquiare coi som 
poter , e non dovrete arroveiiav a pensare quale 
« il varbu u il snslajìriivp adatte per ottenere una 
caria aziono. 

In vane fasi dal gioco, : 'avventai a comporta il 
dover giocare a carie non graPcaa videaj, appu- 
ra si inoaarrana ahrì puzzle strategici, COSO Che 
rendono questa programma un miste di awHntura 
e di piochini vano ed appassionante. 

Pur essendo in basic, i tempi di risposte sono 
velocissimi h la gradita, guài de é prevista, e ab- 
bastanza curata. 

Suora anche la proiezione: utilizzala dalla Firs- 
plrc e .assai drtfjgleda superara ed è in grado di 
mettere fuori gioco li ■35% del duplicatori 

tornano:: avventurai "menu drivon". 
ifi.ocaCilite C:l ma date -s veneti di situazioni u 

di rais di gioco 9 

Sradica: -Quando previste e buona per essere 
generata da basic. 7 


ENDURO 
Adivi sion 
Spectrum 4 BK. 


La n clivi sieri è una casa abbastanza nata nel 
campa c? uiPSogiuch commerciali aar parecchi 
suol validi prodotti ma i schiara par lo Spec- 
illatili è, in generate, mota scadente. 

ENDURO 6 uno dt* peggiori programmi ohe si 
sia capitala di veder*, * non Jote roo&ntomeisle 







:ensioni recensioni recensioni recensioni recensioni recensioni recensioni recensì* 


allatta a chi già 5 E te Darre con volante. 1 r?r» 



Ateo a a «Cbequered Flag: 
superara i*n certe numero di vettura 

si e sana andare "con strana, pe- 
na il Ifrrmitna delti corsi. 


bifc, accelerare, frenare , curvare a sinistra a a de- 
stra. È utilizzabile un joystick, ma ki sconsiglia' 
no, Vista Sa appassiva rensil* uà dimostrala af più 



sorpassare par potare 
fase. 

Man mar» dia si precede non accade mutte di 
nuove. scio la macchina avversarie 1 
perlide a ci 


sema pretese sulla guantài dal gioco. 
Grafica: certamente veloce, ma rimedi 
Comandi; semplicissimi ad inconsistenti 
Giocati il iti: passa la voglia S giocar» se* 0 
al «damò». 


mm 


no li gioco è la possi&aià di scegliere tra 10 par- 
tasi | S-iheerstane, Monza. Zaitfvwrt. . .k. tìie se- 
ne siati digitalizzali dai programmatori e ripredol- 
ti con le loro reati caratteristiche. 

É anche passibile asarciLa^a prima dalla Cem- 
pahzicria senza tftia VI sana e macabra caneor- 
remi in pista, caie invece durante la corsa tentane 
di mettesti Tuorì slrada oppure possono «rimirarci 
se le urliamo. 

La guida si effettua con 6 tasti [A sa la vettura 
ha cembro aLlamaticu i oppure non un pydick (4 
marche arnipSlbttr) e 2 testi. 

la grafica rwn e pamcnlarrnfcntesotistiealta. ma 
si à pregiala il iato tecnico, simuli 


La tosa peggioro di tuttofi programma, a pan» 
la telala manzanza ut cgm Mrtisttcailpne lecrafea 0 
retaste stilistica [tipo sterza 1 a testi, timi» 
-marcia, ettari sanare. più piste, piti tipi di mac- 
china), è senza dubbio la gaelica. Ss neri tasse 
state scritto scila Istruitemi c'uso dai program- 
ma, avremmo pensate che imi si tratta di una 
corsa automobilistica, ma 1* una suda fra inserti 
(cimici?) ir un prato; valere la roto per crede». 

Consiglia bile a chi, in Possesso di uno Spec 
trum con memoria non espansa, desidera un gim 



Fochi uidoogiocairori non conoscono lo sierico 
Polo Fasitron" dada Alari, che ha appassionato 
migliaia, di jlicionados dui giochi 0 velocita e Si- 
mulazione. 

Per Spectrun esistono almeno ’ù versioni di 
guai giace. basato su ti una corsa di tarmuia unu 
ih tempo reato, con grana n» le supposi iva. 0 
queste pfodoilo dulia Mastarlrcnic » quello efia. 
so. 0 è piaciuta slnora maggiormen- 


Su video abbiamo, ohr? alla 'ri sona dalla s 1 ra r 
da, s indicazioni di: velncità. numaro di gm del 
memore, tempo record dalla pista, nastro tempo, 
marcia inserita, gm percorsi 
inizialmente possiamo scegliere ira. una mac- 
china con cambia automatico oppone una normale 
O-nn 4 marce. Che consenta uno sfrutlamonte mi- 
gliare dal [roterà, ma richieda più abilita., ed e 


A V'ALO \ i una s-juuìu d aivwllura/arcaiie, sa - 
sondo uri trac z:enB armai iti voga orasse la soFt- 
wira hot»» motose, ohe inchiede «gionar-ente, 
intuizione-. senso qeir-srtontomwdo e memcfts, 
pure alla pura vetoedà di manovra . 

Ci troviamo nel caste 0 dei «Siy-'iare w Citte*, 
composto da B diverse scenografi, tutte c Ite- 
remi Ira tote » in grafici liidrner semaio mallo 
cria- naie a suggestiva. 

Scopo geco è «avare II pedane di rasa, 
per ucciderle. ev-dando le mille msldto ed l vari 
guardiani disaminati per' l'iPdirtìià di scharmi 
(stanza) da superare. 

Fcvtunal amen te siamo dagli aspranh maghi a, 
procedendo nell ‘esplorazione delie stanze, pos- 
siamo entrar» in possesso d! vari polari magici, 
che ci oonsanlnno di arirernare uirlnrinsamanle 
motti nume. Ogni vallai die si arma in pDssassc 
di un nuova polare bisogna peri imparare a usar- 


Ancha se capacità ai memmento e oflemjta uti- 
lizzando un poterà magico, e perone a impnssibite 
usare pontemporanaamehledue slregónaria, Ma- 
rOc iti protagonista!- è Indifeso Quando £1 muove 
A eccezione dei potere di movimento, lutte le 


te di volte: non è pesatone diventare più ira vette 
invislbte. oppure asciare per pò di tre volte ste' 


ENSIONI RECENSIONI RECENSIONI RECENSIONI RECENSIONI 


m di fuoco tortini schetetn e guardia 0 aguzzini 
vari. 

Procariendn tra una stanza e v altra si trovano 
scrigni e broletti. Che bisogna apm»; spesso vi 
SODO -contenuti oggetti (chtivi 0 altro) indispensa- 
bili per proseguire ir gioco Sirralmema agii id- 
venturaf clastici , possiamo ih ogni momento wt - 
var» sa nastro la situazkma raggi-jnU, plf riprec - 
dere senza dovere carniere daH'iròzib. 



le. suggestiva, cabrala . 10 . 

Comandi: oiutioslc samum da usare ì 
pntefi. Joystick valide. 7 . 

eocabstà: a mote Affiena annoiarsi. s- 
Hiancne salvab.-s. B. 


SUPERCHESS 3.5 
Spectrtim 43 K 
CF Software 


Senza ombra di dubbio queste programma à at- 
tualmente il migliora tra Lutti queti dispcr bili per 
Spedirmi (ne ranosciamd lì) a terse anche tra 
tulli i ara gra-ii mi scacchistic disponibili per ho- 
m? computer 

li suo predecessore, Superchess 3 G. giunse 
secondo in una gara ha programmi alla quale par- 
tecipavano lutei i più noci (Sargon. Mychass, The 
Turk, MaStardiass. Superchess II per varia 
[Bacchine, aallutu la 2 soìantoda! £argpn III- dal 
Commodore 64, Iq una prova i>; re» etlieflueta 
queste nuova versione, dolo stesso autore, ha 
sitante arene eoi prodigiose Sargon ili, -conce- 
dendo- solo 3 pano in 6 partito airanèrsario. 

Questo jr ug amia non c spino come la mag- 
giare ciarle dei programiii a delle sczccb a ? etcì 
Ironiche, di "livelli" d gioco: 5' regola l’aollhà di 
gioco assqgnaivdo al programma un certo tempo 
limite. In seiundi di ritlèssione sulla mossa Qcc- 
Sto parametro pud esser» módiicatu anche du- 
rante il giccc. 

Suparchass ,s.h cerose? jn diserstu numero di 
varianti tendanwfittfi dei neperionp di apedure 
massiche (ftuy Lopez, Gambette di Donna. Difesa. 
Siciliana. Diiosa Alekhioa,.,), sia quando g.oca 
coi bianco che quando g&a col nero. 

Sul v>id00 abbiamo: la scacchiera (detta qui» 
cassiamo regolare tutti ^ caler ;-. la no^ra resiz. 
a messa del cumputar, il numero m mosse fatte 
Istempatti! su carte opzkmaJirwitej, gii crome 
(ma non -se ste to "caduta d$-a bandierina" a 
tempo scaduto!) da &quei'<£ di mosse conside- 
rala miglierà dal ccmpctar. che puO rapprasenta- 


spadc. 

Vier? anch» mostrala il nuroaro di posizioni 
analizzala, che, sembra ncradihila. aumenta di 
circa flW/i 60 p ai aecflndc. signlltea che 11 
computer am qualche approssimarle. Pi^ 
rihtracnare m pochi atlimi te suocessive due mi- 
gliori mosse del giocatore avversar» e regolarsi 
c conseguenza, li TanualB È compiate e valido 
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Sinclair” 



vendo 

Scambio 

Hard 

Vati do Alphtcom come nud- 
v», rotoli C*rt* qfn*ggin. L 
1 73.00". Becca Fasci i. corea Al- 
ita 1 3, i*1l» Asti, (31* VMS i T, 

Y finto mtì -illur 20" BIH adailsto 
uer Spuclrum oafl Infirewo suono, 
L. 80,000. Roberto «turni?. via val- 
la Amicano in. 20152 Urlano. 

Venda Spacdum 48K, poemi [me- 
si, 4 bc* acustico, Interfacci? Joy- 
stick programmami la, nanua e in 
italiano, 3Z videou ischi. L. 5&3.MC- 
UittflfcHI. Pietro D’ Asia, cero? Po 
lama 170, H314# Torino, 

G11.'295*Z3 A1A-15 Q dopo le 20. 

Vanda Spaclnum 48K toma nijjr 
», registratore, prc-grammi i- egro 
correre, alimentatore, ht*?, carri, L 
4O0J5CO Irallabil . Mai-qp HAarc-flal i. 
via Madama *, 22063 Cariò ICC! 
OMfflflT*. 

Vanto SpadTjm 48K iuù«i , Im- 
ballo, 2 manuali, caas-etie dime- 
Strellrra Horlzcns, C*tne lOG.GOO rir? 
di aoltwana, L 380.303, SpHU'jr» 
Plus 4&K si esse condizioni, L 
39(3 000. Tal. Uajstmto 
■???J3271986 leena). 


Per Qt vento *fp?nito™ di ri»- 
morii 128 t sl scheda Eurocard., 
con connettóre per ulteriori espan- 
sioni, mite lo memori* SuAtototo, 
L 350.000. Giampietro Sobrero, ma 
Appemicrne tS, 16193 Genova, 
OIMBGtH?. 


Vanto Itillari par Sp«tnnn 

nurinsaimp rai battuta L. 50.000. 


wdo Sp*clrwn «K iseue 3, 8 


prediapealUone attacco mormOof, 

l., 320000 («nftwira e nchleala.1, 
Giorgio COtofrtbc?, via S. Cerio 13, 


Vendo Irrtarfeoete 2 par Spec- 
trum con 2 joysitck 
"Sptotrevidto" "Trlgaogmmend". 




ASC 1 M0; tasi -era ptctoe&ionaie pe r 
Cjrttlrum L. IOOuOOQ, trillo in alti- 
mo alato. Fiorian Ellmenraleh. via 
Dante 73, 390*2 Menano (&Zf, 
0*7333 13SB m«WfligrnO, 

Vento ZX si ccmprato L. ».Q30 
4 espansione 16K L 99.00(3. * 2 
manuaM in italiano. Alessandro Pi- 
ni. via Zorzl *6, M&raneflo fMOl, 

053M4135R 


Vende SpotTtfum *8K Natale SA, 
cavi, usalo pochissimo, L 360.0(30. 
Luca Parola' 1 -, itale Genbsldi 46t, 
30170 Mastre- (V E), 04175069537. ■ 

Vendo Cei*wvl*tón consolle 
modulo Urto super itìtlto control- 
lare + 14 cartucce, solo zona Ro- 
ma L 500.000 Giampaolo Moneti?, 
via E.l Cerva », «143 Rem?. 
06W»738 h IB-tB. 


Vende Specirum 4&K + ÌX Frlii- 

ler. come nuovi, *af3w?r* v*to. L 

400.000. Tiziana Fiorini, via Tremo 
11, Sin 7 Sl?a [ARj. OÌ7&r»2K2 
pesti. 

Vendo SpecLmim *Btf8K, + 
scheda Speedy e richiesta, pro- 
grammi di lutti i tipi, Ughi pan, 
"finn" 1-7, 2 libri, olii me condizio- 
ni. L. 503.039 tr?tt*W li Francesco 
Fontana, via Valaeaia 44, 201S2 
Milano, 0&4S946G7 sere. 


Vendo piastra Rockinll Alm SS 
*K con linguaggio basic e monitor, 
5 menu-ai 1 originali 4 1 Jlbrr? in Ita- 
liano Sul 6502 l'Jackson). 4 fitto?- 
pente ttormea 20 caratteri Otivami 
e atampiintfl gl n-camblo, + mobi- 
le poma piastra in plastica apposi 
temerle costruito, tac le cariale e 
Carmi?!?, uscta espansione Uno a 
64-K, praao 1?m?toco; oppure 
scambio con Iniettacela 1 + ml- 
cmtoire 4 stamparne 63 coitone 
Frane e a co Gru lotti vie Pp-.iii li, 
*8l<» Ravenna. 


Vendo computer Newton In AO 
con display allanumerlco 16 digli, 
+ monitor 12", KJltwara vario lire 
cui compilatore Pascal^ mfinuil? 
italiano, al inani Stura, cavi, -àgi- 
eira tare, L. 950.D0Q trellabili. Ivan 
Monetti, via MambretU *0, 20157 
MI lena, 3273564126. 


Vento H 81 46H, eHmernatoie, 
offri, manuale, L 403.(300 -rullami 1 . 
Merco damano, via Fleming *9, 
100» Plnaeca fTOO, 0«tflU19‘. 

Vento Spedrum *&K usalo po- 
chissimo, Interfaccia e joystick 
Kamopsion, 1 anua i inglese e ita- 
lisce, libro mlcrodrlve, cl?ca 30 
gitoti?, L. *‘39000 ISiento giochi 
459.0303- Nicola Ponti, via A. Piazzi 
2, 21(321 Angela (VA!, (S3 1 , 931096. 

Vendo Spacl.-jm 46K 1 amn 
parlarne condizioni, mbello orlgi- 
nssta, 4 2C0 MB lire di eoflwere, l 
340. (300 SnCfiB trai labili. Antonie 
Colanluonc, via Trinila 74, BdIDO 
Avelline. 062573(1945 


Vento Spectrum 80K. program- Vendo InterfaciHe 1 con micro- 
mi rf? ci. ma e gltohi, L 3GQ.DOC. dml»e a 7 eunuco». imballati 1 me- 


la, lltol e programmi omaggio. L 
303.(303. Mauro Donaielil. Via Gian- 
cardi 4, 20100 Milano, 3^4651535. 

Vendo Spa-clrum 48K bgmplWc. 
con presa monitor, stampante Ai- 
pfiacom 32, luMo poco più di usi 
anno. dlUto ««A utll We* (R? cui 
word prcceeaor, aeeemPlalore, 
itomp*l!rtore eoe- L *50,003. Ange- 
lo Quaglia, vie Grilli 6. 21100 Vare- 
se. K3Ììra3Z470. 


Vento» 81. sipsnsloft* 18K in 
garanzia lino a giugno. * oaeaelle 
fjrogrammj, 3 libri, & riviste, L- 

200.000. Plora Righilo, via caveur 
15. 21013 dallarate (VAI, 
3331(796681 


Vendo Spadrum 18K, cavi ali- 
mentatóre, libro ItBllaro. olire 53 
giochi UM, L. 300.000, c st-mbio 
upn inte- lància 1 e mlcroditva. Ma- 
riano Marcnna, rione K7 ladano 
K, scala l, n. 2*5. ®1*4 N?coii. 
D81i'7014173. 

Vendo anche seperalemente 

Spaclrum 49K lasiw 2 L 250.303 A 
lavata grafica drarpad L. 450.M33: 
utl nilae • giochi emagglo. Gianlui- 
gi Errlw. vip Pori» s. Angola 1, 
051 DC rami. C 74**271 06. 

Vento ctHnpuler PetiCiM 4032 

con monitor a melari verdi (possi- 
mi ilA video a 60 colonna!, raglalre- 
tore, menusil originili, joyaiyck, 
molli pregrammi, L 95C-.000. Amo- 
n«j di GtlTo, via Mode Gs*v1 m> 1?9, 
30033 F?v?rq Va naia (VE). 
0413811259 b 19-20. 

Vanto al miglior alleranla Joy- 
stlc». 8 p«eMtoci con * micró- 
twllch, p.-agrsmmiblls, 2 luti Ito 
co, 4 IrlHtacsila tk cempatlbl a 
con ogni Joyellck, caiietti latru- 
stoni mi itsUiito, 2 med, usua 2 
volta. Enrico Bargn.li, via E. Ma- 
nata* 15, 57169 Livorno, 

6»M5*7t5 piati. 


Vanto ZX 81, al Imenlatore, cavi . 


-50 - Sinclair Gmpjler 


regrèl-rMore, vid», espansione 
teK, manuerè originale + ■'Guida 
alloca SI", onim» torHjlzlonl,, oc*) L 
fedone originai*, prezzo da con- 
cordare. Vincenzo Musico, vie P. 
Blandino 12. MI DO Messine. 
09&r£93»H. 


Vendo nnemlldr color» RGB ce- 
del 14 mod. MC 3700 nuovo In ca- 
nnila, L 540.0M; BCPL par Sin- 


da, via Glrardlnl 10. 3100 Udina, 

043HM0UtiH»14». 


Vendo Sprolruin come nuovo, 


. .rèjlbroaul L'M, 

L. 40&.EKQ. Boberto Tirana-, via Ba- 
cini 76, 20T3i Milano, 01295064 


Vendo SpaeLhirn 4SK, cavi, all- 
msmetor*, lm*rfrocrè • joystick 
Kempalon, interracela monlloi, 
manuali, 250 programmi, libri, L 
500.000. loranzo de Cola, via Sahl 
69, 47042 Cesenatico (FO), 
0547*1152. 


Vanda Speclrum 48K. otri, *Jl- 
mantenere, Imballo e manuale ori- 
Ijlnilt, olir» 120 programmi • utili- 
lisa, L 37DL00Q. Alberto Bono. vi», 
le Venezia 7, 37tQ0 Verena, 
040522373. 


Ce^co stampale par S peci rum 
» è + Calumi* s buon prezzo, T»- 
il, vie Turno 1 k, 53017 


Cerea ZX Prirrrèr p-r ZX Si H 

penne dilce, In buon alata tulio e 
maro di L- 100-000, Andrea Beivi ri, 
s Oberdan 35, 31100 Trevi», 


Cereo gli *dv?murw; "Anwof 
Deattr |1 e 2). "Meeup* rro*n An- 
dromeda 1 ", ’Ten Utile Indiana". 
Riarmare* Cordini, vip. V*lb*ndlo- 


Compro rotoli p*r StflmpSntn ZK 
PrMI»- Luigi Cassali., via Alcun» 
6, 201 49 Milana 021353247 


Speclrum e a 

mente grafici, [ „ . 

ostro numeri di Sinclair Compu-ler 
1 -e, anche In foloropìa Francesco 
Ghiro ttl h WS Pernii li, 46106 Ra- 
V svine, 0544 1422254. 


Compre ZX 51 a prèiS* Covi-rè- 


Cavee posaaatuH Sinclair (H, 
per «ambio programmi, libri e rivi- 
aia. Roberto Corbetta. via Perini 
42, 21047 Saronno IVA}. 

Cerco I numeri da t a 6 di Sin- 
clair Computer In cambia di soft- 
ware. Luca Cavallari, via 77 29, 
21142 Ml|i 


Vendo per Sparti um irafliHlona 
dailllMeiftte manune- Enciclope- 
dia di Eiaiiraniea * In-farmatios 


1964 deli* rivista "Personal soft- 
ware". giu$c9p* Cardali*. Vi* Mer- 
lo gna. 40, 911 OD Trapaci. 
00231*6454, 

Cerco par Sptrtrum 48 K l » 

tlam H*y, BMX Recare, 

Knlghfc L “ ‘ 


Compro 

cerco 

varie 

Si 6 coairLuiLo 11 GL Usar Club 
Pavia. Per i ntomnazionl; QLUC PV, 
-*7* Ragia Carnevale, vip Casi-nana 
2, Zerbol* |PV1. 

Cereo etampanl*. panna etile.. 
Inlarfaeda joystick e altro tiardwa- 
re ni cambio di saturar* Spsctrum 
15-46K. Mariano- Marcane, tiene 
157 isolala Recala Le. 240. 69144 
Napoli. 001,1701 41 73. 

Effelluato traduzioni dUI'ing-ie- 
ae di leali manuali * Isioizlgnl ine. 
tarili i computer Slncflalr, prezzi 
modici o In cambio di software 
4SK; per liste iiaduzlonl pregasi al- 
legare Francobollo. Rossano Ma- 
ltolti. vis E. Curisi 7, 61032 Fano 
CPS* 


Carpo l.lmzlanl In Malteria per il 
programma V allerta Febrlzlo 
Mariano, via Don SIuck, 7, 66100 
Crosserà, 0564,492606 pulì. 

Cerco programmi cU *lmt!Lp*1^ 
ne, urèwiaedlflfh duplicatori hea- 
uerleae. Flavi* CSPansse, via Viral- 
! o 17, 34i 70 Gorizia, tei - 33133- 


Carro possessori Speciram 
ne AvaUhe. Luciano De LI**. 
BeRptem* iM, 831 DO 
DB25I3-7977 - 22950. 



VEBireon, u volumi compiali e rile- 
gati, L. usa COO- GrèwenrH Maiale, 
viale Trieste 36. 331 DO Calumici; 
la, 0934751411 pasti. 

Cerchiarne urènti -Spatri tu rn in 
tulle Italia per N club "Speciromar 
nls", iectitìcns L £000, giornalino 
menane, stoni* 50 Vi- sul software 
Speciramarna Club, via dalle rit- 
mile 6, 50U4 Firsnze.'Galluzza 
D6 5720*0905. 

Scarne- :> Inrènnpirènl HlflU ad- 
vtvnutM Sandro Pana, vie ri. 3 a rt 
Stra 1. »1S2 Roma, D6)5306*7. 

Carro asaambrètore I deaerarli' 

binici* e ultra utlHtles In UM con 
manuale par ZX ai. Merlo Roi igr ■, 
vie Flava 25, 24052 Azzano san 
Proto (6G|. 

Far possessori specirum: al e 
costituito In Bari II primo Spee- 
lremalub- Rivorg»rsi r Paolo Pa- 
dane, via Stradane dar carré 9-A, 
70124 Bari, 000741*346, 

Cer-co Mempanie Alptiroom o 
-Seiko tbe, per scambia con sclv 
wa/e -ncn proleltc. Stefano Ftatte- 
al. vie March* 26, 6EB19 SenlgMlr* 
(AM), 071.'fl62115S. 

Vivido I libri; *AHa scoperia del- 
io ZX Specirgmh, -Program «4*1 Io- 
ne dello ZX Spedami-, >77 pvo- 
gramml per Spectrem- a 1. 14.000e 
-Giochi amo oon lo SproUum- * L 
a.ooa dello di Giulhsvnerrè. via 
Campo da' fieri 19. 30166 Flovna, 
0676564532, 


S costruiscane perifsrlchs par 
ZX 11 o se ne forniscono progettl- 
Club Erècfr*, e*, t. Befte*o, vie 
Brloschl 7. 20C61 Brearo |Mrj. 


Cereo s. , . 

per Speotrum. P*plo Della Cepan- 
ne, vie fretti 764, 5S349 Vlareffl?io 
(LUL 0684J503C9. 


Vende “Sclanu * vii*", 6-i2 
1961, 1962*3144 ro-rnplela. L. 
65.000 escluse spase dr spedia-e- 
na. Luca Marmo, vie privala -hi- 
r*nja ir, 18C3B Sdii reme (IMk 
3164,661137. 


Cerco i deriseci a Jnjttlgk Kem- 
atgn Funiionante max. L 20.00Q. 
t?arlc. Carter*, vi* IV novembre 33, 
300-10 Campagna Lupi* (VE), 
Ù 4 li 46301 2. 

Ca ca p*r GL programmi dir ml- 
crodrlve c Natali da tiriate Inglesi 
Raimondo Magami, vie Dei Fiutine 
37, B91QQ Reggio Calabvle, 
M6S733Q377. 


Ceree mappa rètnulwiL Alla 
Atsc, Slerèno Meno, ri* Di Vittori* 
76. 30097 S. Donalo Milanaae (Mlk 
tei. 527È5fEL 


L> ca I progranynl Decathlon 
della Ccean a N Fincdl-opmpirèr 
dui* Hlreoft per &p*cirvm, In cam- 
bio di .lira coPrère-re. Claudio fat- 
ture, ria A. Miiuonl 16, 30030 6 jI 
z*n*1Vi), 041J437TS7. 

Cereo Hl-tefl Pnost 1-5 con 
m*nu*rè óampldi* df "suri le" a 
audio, regi atraiore eie mlcrodrlve 
compatibile; possibll-mvnte In 
na, ZX mlorédrlva e ZX Izisatriaca 1 , 
sete ae atrara; seno dlaponlfii le 
per acemblc di tde* nere e roft di 
ogni gene**- Lue* Lombaido, via 
Don Boero 92, 15Ó19 Vallacroala 
(IM) 


Vendo 

Scambio 

Soft 


V&ndono / scam- 
biano software per 

Spectrum (dove non 
diversamente spe- 
cificato) 

Zona Cacarla. Sergio TrtoK, wa 
Slurzp 1 , tl 1920 s. Nioda La Sir»*a 
ICE) 

Zena Braacia Michela Lombar- 
di: ria Vl-reldl l4 r 25123 Brescia, 
F1*ric Dhianeae, viale Virgilio 
17. 34179 Gorizia, rèi. 33163- 

R*r ZX 6i Vendo softwere origi- 
nale Paleo. Luigi Caaef II, rie Alcu- 
no 5, 20149 Milano, 02)363247. 

Per ZX SI a Speeitum. Fabrizio 
Mariano, via Oon Stunzo, 7, 561 DO 
Growwo, 056474926» pasti, 


Ber Specrro- e Ql. Gabriele 
■Sargim. piazza delia Repubbllcu 
56. S8D36 Pelei* (Pi), rèi 62237? 


Per GL In UM. Glenluca More uri, 
via PiùttFetta 64, (MJ154 
0&5740fl69. 


Zprrè Tprtn*. Gi-^ern Ossola, 
ria Tei legna 3GVE, 911(279397. 

Gan u-u 0uzzs , via Bella v sta 
24-26, D9Ì34 Pini ICA), rèi. 50D623 
dpp* I* 30- 

Derip* Cameni,, riel* Mwtana 

19, 431 DO Farm*, a521i73B68. 


U*ndo Frogremm* totocalcio 
4 alt rtlficlaslnitì, paf elab*sziùna 
ronpiasse siatemi ridotti, L. 
29.000 rovirèirea* essami*, lsi-j- 
zlonl e apadlzlone. Maurizio Lee- 
na, via Gale Mellaso 16, 90175 Ro- 
ma, 057662671, 


Per -QL Pube ri u Ghezzl. ria Vo- 
lontari del sangue 292, ?:M Se- 
st* & Giovanni (MIL 02)2486511- 

Per GL GL User Club, ria L’-jc- 

ciò 3, 5W47 Prète (FI). 


Francasse Calvelli, ria Palslahc 
6, 59916 Standoci (FI}, 

□55(753544. 

£jl* Pevpn*. via Regio* Marghe- 
rita 73. 95024 Acireale |CT), 
OSftrtOlSSi 

G-l seppe Armarmi, ria Campo- 
flora 44, 59139 Firenze, 

<355*76472. 


Sindir Compuler - 61 


09S3nSe?*&1 


la.utM asm, ouisaaiz. 


e di Fw- 

t O 263, 00DS7 M»rcnr«B9 

IftomaJ.tel . S4S 1 225. 

Par 8(i«afum t OL ElanffjjncKj 
BaI'ImIo, cswlla pollale 52, 301 DO 

VflMd*, hi- MT40, 


nav. privpta il, flocsse Ton* -uei 


Iona PlaMna. ven<to Eulpan- 


Lamberto. Hlqhffllr, «a del le Vii- ewiza, 0523i71 


fiochi, utlMltea, ollimo pro- 


Per QL. Manco FaiioHnl, via. L 
vieni 21, 501 42 Flr*n*ù, 

osarli KB. 


+ ? E . 
omaafllo, L. 10.000. OuHJo Gardl- 
npfi, vip Borgo rwwo 27IW8 Fm> 


MlekHPfi), lai. *51». 

Antonio C«RJto, via Madonna 

dalla Mere»" - 

Uri. 77»a. 


10,000 cassetta sbcIum. Edii 
Mar», via Gonzaos », Si» Pia- 
——1467. 


Per Zx 51. Club El*nn, cto l 
Salterò, i ' 
so |Mt]. 


Fere quai?«B.si sistv-rns al loloctl- 
ciò. Maidp Tronti, «a (ì.c. Corda- 
re, 00179 Rema, D&7a27234 pema- 
rlflfllo, 


Zona Roma. Plofmefco Gofdlnl, 
wb Vaino rxNeha 111, (JOiM Roma, 
06«42?9i* aera 

Andrea Musetti . vie CM»s Sforza 
7, -540J1 Avanza [MSI 


Massimo Baleno, via Battimi 


mlcrodrtvB-m*WQdrlve e tapeml- ti 2, S*ft3l Avanza [M$h 
crodriv». Antfraa Oelt'Era, vie Pio 
E mantieni 55, 00143 Roma, 

«5034279 pesti, 


'segua da swg. *30 

simulatori 


gioco. 

La è: ru marnazione occuparla il 
terzo Inferiori dello schermo, ben ri- 
finì la g rat Garrente, comprende: ta- 
cili moire, altimetro, orizzonte artifi- 
ciale, visore d'assetto, VSI (velocità 
verticale), radar d'atterraggio o di 
caccia (con collimatori), posizione 
carrella, potenza motori, scoria car- 
burante, 

Certamente la cosa più avvincen- 
te di guasto programma à la possi- 
bilità. di Simulare dei vari e propri 
corri baiti manti aerei ad alta quota, 
contro altri cedola (necees&rìamen- 
IB oon grafica molto sii lizzata sul vi- 
deo), che minacciano di bombarda- 
re le nostre basi di appoggio. Come 
(dicono) avvenga su un vero FI 5, e 
possibile effettuare acrobazia ae- 
ree ad alta velocità, e presto Gl si rL 
trova a compiere I vari "loop", ''ton- 
neau"', scivolate d'ala e voli rove- 
sciati per sorprendere I nemici. 

Certo, durante le "'battaglie" il 
programma cassa praticamente di 
essere un simulatore realistico', per 
assomigliare più a un arcade game. 


ma il fascino è Indiscutibilmente 
maggiore, 

Deita Wlng. (Creative Spari; 
Thorn £MI). £ dì recentissima pro- 
duzione (1984), e ne esiste anche 
una versione adatta a funzionare 
con due Spectrum muniti di interfa- 
ce 1 collega!#, permettendo a due 
"avversari" di giocare contempora- 
neamente. 

Certamente questo à il mano "se- 
rio" del tre simulatori presentati, 
tanto è varo che non vengono nep- 
pure precisate le caratteristiche 
tecniche del l'aereo a cut i program- 
matori si sono Ispirati. Vi sono tre li- 
velli di difficoltà e scopo immutabi- 
le del gioco è di bombardare le basi 
aeree nemiche e proteggere la no- 
stre, avendo come avversari del 
guizzanti caccia supersonici. 

I corni rolli a disposizione del pilo- 
ta sono: cloche, flaps, tbroltié, map- 
pa, poetala radar, effetli sonori 
orVoft (sa col legata la "sound-box" 
della Fuiler), fuoco cannoncini e 
sgancio bombe. Gli si rumanti visibi- 
li In gradevole grafita sono: altime- 


tro, tachimetro, VSi, potenza molo- 
ri, carburante, segnalatore di stallo, 
carrello, orizzonte artificiale, posi- 
zione radar, Indicatore bombe, flap. 

La grafita è velocissima, tanto 
da far assomigliare II programma 
decisamente più a un arcade che a 
un simulatore realìstico. Sullo 
schermo sono visibili la mano del 
pilota a le gambe, che si muovono 
secondo i comandi impartii I. Le 
Istruzioni sono molto belle ed este- 
se, pur essendo il programma poco 
complesso. 

Per quanto ci risulta tutti quest» 
programmi sono regoiarmeni# im- 
portati, e hanno prezzi compresi tra 
ie 9,000 (versione Italiana ci Flight 
Simulation della Mentre Software) a 
le 30.000 lire. 

Pei conti udore, elenchiamo gii 
altri simulatori di volo per Spectrom 
a noi noti: Combat Lynx (DureH- 
elicotteri), Mighftita I & Il (ftewsorr), 
Gllder fflncJafr-al (finiti), Tomahawk 
{Digitai Integration -Elicotteri), 
Heathrow (ffewsoe-contrallo da ter- 
ra), F15(Us goftf). 


Tasti 


(segjsda pap 


SYMBOL SHIFT 

Segno di sottrazione. Questo 
operatore aritmetico non dovrebbe 
avere- problemi per nessuno. Ha 
priorità uguale all’addizione. infe- 
riore a moltiplicazione e divisione, 
superiore agli operatori logici . 

GAPS SHIFT 

"J" maiuscola 

MODO “E M 

Istruzione VAI- Legge urta sirin- 
ga come espressione numerica, as- 
segnandola a una variabile o start’ 
pendola. 

Par poter essere letta come nu- 
mero. la stringa deve essere costi- 
tolta da caratteri numerici. In for- 
mato e dimensione accettati dal 
computer, oppure corrispondete al 
nome di una variabile che in quel 
momento risulti iniziai lutala. 

Gii usi dì VAL sono molteplici. 
Uno dèi più frequenti, per fare un 
esemplo, ha lo scopo di risparmiare 
memoria: in programmi molto lun- 
ghi., con molte vanadi II con valori 
piccoli, la Icrc assegnazione a strin- 
ghe tette con VAL consente un no- 
tevole guadagno dì bytes (perdendo 
un po’ in velocità); io Speotrum In- 
fatti non dispone del l'opzione IMTE- 
GEfi, per lavorare con numeri interi, 
perciò tutte le variabili numeriche 
vengono rappresentate in formato 
floating pomt, con un ingombro di £ 
bytes ciascuna. Cfr„ anche SC n, 7 
peg. 25. 

SYMBOL S, IN “E" 

Istruzione VALI. Daremo un pre- 
miy a chi ci manda un listalo con 
una situazione Ih cui non si possa 
lare a meno di questa istruzione; 
dobbiamo confessare che non riu- 
sciamo a comprendere l'utilità di 
leggere una stringa all'Interno di 
un'altra stringa (dev'essere quindi 
dentro tra doppi apici, o un numero 
dispari superiore a tre!, per ricavar- 
ne una stringa sempiice. 


K 

NORMALE 

Comando LIST. Produca sul vi- 
deo la stampa del programma basic 
attualmente io memoria. Senza ar- 
gomenti, Il listato inizia dalla prima 
linea: specificando un numero (o 
una variabile numerica 
Iniziai Izzata), vedremo il program- 
ma a partire dalla linea con questo 
numero o, se non esiste, dalla pri- 
ma con un numero maggiora. Se 
non esiste nemmeno questa, si ha 
semplicemente un O.K. 

L’operazione dì LIST, analoga- 
mente a PRIMI, presuppone sempre 
l'Invio a un canale logico: quando 
non viene specificato, dando cioè 
semplicemente LIST, si sottintende 
trattarsi dal 2 (parte alta deilo 
schermo); negli altri oasi deve esse- 
re esplicito. Per esempio- il 3 (prece- 
dute dal Sdito cancellerie, SYM- 
BOL SHIFT + -3") invia iMislato al- 
ia stampante, lo 0 alla parte bassa 
delio schérmo. 

Con l'Interfaccia 1, i canali logici 
da 4 b 15, debitamente FORMATted 
& QPENed, possono venire asse- 
gnati a mi crebri ve, porla serial# □ 
rete locale, e 11 LIST invitato a una 
di queste periferiche. 

In questo desso numero di SO 
l rovai# un programma per un UST 
più versatile. 

SYMBOL SHIFT 

Segno di addizione, Nemmeno 
questo dovrebbe crearvi problemi, 
dato che lo si usa nello stesso mo- 
do che ci è stato insegnalo alle 
scuole elemenlari. La priorità è la 
stessa del segno di sottrazione. 

GAPS SHIFT 

J 'K” maiuscola. 

MODO “E” 

Istruzione LEK. Legge la lunghez- 
za in caratteri di una siringa (da 
LENgth = lunghezza): 

PRIMT LEN al 

LET w = LEN "tamari! lobr! Ilo" 

Il primo esempio stampa un nu- 
mero corrispondente alla lunghezza 
della variabile a? (che ovviamente 


deve esistere), il secondò assegna e 
w II valore 15. 

La funzione LEK trova applicazio- 
ne soprattutlo nel trattamento delle 
siringhe, quando occorre incolon- 
nare, allineare, stampare in labelle 
ordinate, eie.- tulio quello che al fa 
in altri basic con PAINI USING. 

Se nelle siringhe ohe volete ela- 
borare aveie inserito attributi di co- 
lore (Inchiostro, carta, lampeggio, 
eie, che si assegnano con la prima 
fila di tasti in mòdo "E" - cfr. SC n. 
9i’1 0). questi vengono conteggiai! 
dà LÉN, in misura di due caratteri 
per ogni codice inserito, anche neh 
la stampa (sia sul video che su car- 
ta) non occupano nessun spazio. La 
stringa dell'esempio, con aggiunti 
all'Inizio gli attributi per luminosità 
e lampeggio e il riporto a! I a norm al I- 
t& alla fine, risulta essere lunga 23 
caratteri anziché 15. 

SYMBOL S. IN " E 1J 
Istruzione $CREEN$. Ha due usi, 
ben distinti tra loro. Associata abe 
funzioni di colloquio con l'esterno 
(LOAD, SAVE, VEFIFY) aerve per li 
caricamento, dal registratore o da 
altra periferica, dr una 
"schermata". L'islruzlon# 

LOAD "nome' 1 SCREENS 
È una facilitazione d'uso per 
LOAD "nome" CODE 16334, 6912 
e carica nell’area di memoria de- 
stinata al display-file un blocco di 
bytes, teoricamente qual siasi - 
Infatti In qualche caso la memo- 
ria di schermo viene usata per si- 
stemare una routine. In linguaggio 
macchina (cfr. in questo numero di 
SC II programma "BubWe-SOrt in 
ling, macchina 1 '). Ma lo scopo fon- 
damentale, come ben sapete, è n 
caricamento dell# schermate di 
presentazione dei programmi. 

Il secondo uso, nel formato 
FRINÌ SCREENS (*,y) 

LETal = SCREENÌ (x,y) 
etc. 

ritorna una stringa di un carati e- 
re, che corrisponde a quanto trova 
stampato sullo schermo nella posi- 
zione specificata da x,y. Se ciò non 
corrisponde a un carattere del set 
di cui e provvisto lo Spectrum (par 
esemplo, se si tratta di parie di un 
disegno ottenuto con PLOT), ritorna 
una siringa nulla. 


i 

NORMALE 

Comando LET. Assegna a una va- 
rii ibi la alfanumerica II valore di 
un’espressione. Mei formato gene- 
rala 

LET a = espr 

a può essere il nome di una varia- 
bile sia numerica che stringa, con □ 
senza Indici (in questo caso sarà 
preceduta da un enunciato DIM/; 
espr può essere qualsiasi espres- 
sione omogenea con quanto sta a 
sinistra dell'uguaglianza (cioè o nu- 
meri, o stringhe}, 

SYMBOL SHIFT 

Segno di relazione "uguale”. Sul 
suo significato e uso nel le operazio- 
ni algebriche dovreste sapere già 
tutto; vale invece la pena di ricorda- 
re Che pud avere II ruolo di operato- 
re di confronto, al pari dei simboli 
indicanti minore, maggiore o diver- 
so, sla per numeri che per etrlnghe. 
Gtr. Questa rubrica sui nn. lina; 
troverete molti esempi d'uso alla 
trattazione degli operatori relazio- 
nali e logici (AND, OR). 

CAPS SHIFT 

'*1" rnaiuscoia. 

MODO “E" 

Comando USR. Eccoci alia fami- 
gerata istruzione che "chiama" il 
linguaggio macchina (User Subrou- 
ime Request). 

USR richiede come argomento 
l'indirizzo di partenza, cioè la loca- 
zione di memoria in cui si trova la 
prima istruzione che deve essere 
eseguita, e ritorna II contenuto del- 
la coppia di registri BG. 

Normalmente viene associata a 
RANDOMJZE, in modo che al rientro 
dai linguaggio macchina l'unico ef- 
fetto eia di rein Izia lizza re il genera- 
tore di numeri causali. Sa questo ve 
evitato, o se sis ha bisogno del con- 
tenuto di BG, si possono usare altre 
forme, come 


PFIINT USH xxx 
LET q = USR SiXX 
eie 

C'è anche un altro uso di USR, ad 
è ia oostruziono dei caratteri grafici 
definiti dall'utente, noti più breve- 
mente come UDG. li metodo è già 
Stato descritto più volte: rivediamo- 
lo brevemente. Su una matrice di 
3*0 quadretti si disegna il carattere 
desiderato; leggendo la matrice per 
file orizzontai I, si ricavano otto nu- 
meri binari, assegnando o al qua- 
drelli rimasti bianchi e 1 a quelli da 
riempire; facoltativamente, si pos- 
sono trasformare in decimali con 
FRI NT BPN; ora si ssegue questo ci- 
clo: 

FOH x=0TO7 
READ n 

POK£ USR “a" + x,n 
NEXTx 

DATA 1,2,3, 4,5, G t 7, 8 

dove nella linea DATA si trovano i 
numeri relativi alle otto file di qua- 
dretti, dall'alto In basso; "a’:, Che 
può essere scritto usando indiffe- 
rentemente la lettera minuscola, 
maiuscola o II modo "G", costrui- 
sce il carattere U DO corrispondente 
si tasto A, per i successivi si sosti- 
tuiranno le altre lettere dell'alfabe- 
to. 

SYMBOL S, IN "E” 

La funzione ATTR ha la forma 
ATTR (*,y) 

In cui gli argomenti indicano ri- 
spettivamente la linea a la colonna 
di una posizione delio schermo: 
hanno quindi range utili da O a 01 e 
da O a 21, come par AT. 

Il numero restituito dipende dallo 
slato di quattro variabili, relative ai 
cosiddetti 'attribuii' di quella posi- 
zione, e cioè: 

FLASH - D inali Ivo, 128 attivo 
BRIGHI - O inattivo, 04 attivo 
PAPER - fl moltiplicato il codice 
INK - codice 

La somma del quattro numeri è H 
risultato del l'esecuzione di ATTR. 
L'Interpretazione di tale risultato è 
utilizzabile par analizzare una situa- 
zione. per esemplo le possibilità di 
movimento al l'interno di un labirin- 
to. 



É senza dubbio la lasto più pre- 
muto di qualsiasi tastiera. Serve, 
genericamente, per eseguir# l'ope- 
razione scritta suira parie bassa 
dello schermo, nel l'area di adii. 

Se non e'* niente che attende di 
essere eseguito, si provoca Solò un 
LIST automatico; se non cl sono 
programmi da. listare, non succede 
niente. 

Se m edit-area avete uno o pi ù co- 
mandi, premendo ENTER il compu- 
ter prova a eseguirli; se La sintassi 
non è correità, appare un secondo 
cursore lampeggiante, e il compu- 
ter resta in astesa della correzione. 

Se le Istruzioni sono precedute 
da un numero positivo interiora a 
0999, vengono riportate nella parte 
alte dello schermo, diventando cosi 
una linea di programma; con una 
sintassi sbagliala si ha lo stesso ef- 
fetto del ceso precedente. 

Se un programma sta girando e si 
irova In attesa di INPUT (efr), la 
pressione di ENTER lo fa ripartire: 
per un Impui numerico occorre 
qualcosa (sta poi al programma ve* 
ri bearne la validità), l'Input alfabeti- 
co accette anche la siringa nulla. 

Se il cursore si trova in modo "E" 
o "G", la prima pressione lo mette 
in stato “'L" (o "K”); una seconda 
pressione riconduce a uno dei casi 
precedenti. 


m 
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AGITARE 

STANCA 



Desidero ricevere le cassette 
con II software pubblicalo sul se* 
Quei ili numeri di Sinclair Compu- 
ter: 


un porto L. ......... 

spese di spedizione L. i -ùOO 


□ ho versato I impano suE cfc po- 
stale n. 37952207 (allego fotoco- 
pia della ricevuta di versamento) 

O acclude assegno non trasf. 

n fbanca J 

intestato a SYSTEMS Editoriale 
Vie Famagosta 75, 20142 MILA- 
NO 


cognome ......................... 

via 

CAPtostà ............. 

Ritagliare e spedire in busta-' e Sy- 
stem Etiitortoi* v.h femagosta 75, 
20142 MI! ano. 




ABBONAMENTO 


Utilizzale 
i tagliandi 
per abbonarvi, 
colla b orare, 
chiedere o 
darci consigli, 
pubblicare 
un' inserzione 
per comprare, 
vendere, 
cercare 
contatti. 


Ritagliate 
e spedite 
in buste 
chiusa a: 
Sinclair 
Computer, 
viale 

Fama gesta 75, 
20142 Milane. 


Registrale il mio abbonamento annuale a: 

D Sinclair Ccmpuler (L . 20.000} □ CompUler ■+ SifKSair Computer (L 55 ODO) 

□ Ho arsalo l'importo sul c/c postate n. 3796220? 

U AcdudP assegno non imsl&ntiile n. banca 

intestato a SYSTEMS Editoriale, v,l* famagosia 75. 20142 Milano 
il mio computer è □ ZXS1 □ Specimen □ 


possiedo 

SI NO 

Nome 




stampante 

□ U 

Vie 



ri 

micrùdrivE 

a a 

CAP. 1 1 1 

1 1 1 finti 



joysbtc*. 

□ □ 

Tel. 


prov. 



N.fi. L'afcbonamento è annuale ( 1 1 numeri) e deoone dal primo numero edito dopo il ricevimento della sottosorclone. 


Desidero eOUaberare a Sinclair Computer COLLABORAZIONE 

Invio il pifogramma 1 ... ...... 

listato e registrato su cassetta, con un articolo- di commento. 

Garantisco etra il software è originalo e vi autorizzo a pubWicarto. 

Per II compenso scrivetemi al seguente indirizzo: 

Nomo 

Via _ — „ ..... 

GAP. I 11 I I I ,dità prov 

Tri 

N.8. Il materiale anche non peftbfeaJOiien viene restituito 


HELP 


Nome _ 

VU n 

CAP.LLLLUdifà 

Tel. prOv. 


Queste mese ho gtquisteto ! provato i seguenti programmi CLASSIFICA 

e li valuto cosi (max ire titoli) : 


TITOLO 

Ottimo 

Buono 

Ntediocre 

Deludente 

















nome e indirizzo {facoltativo) 


Avvertenze; 

ABBONAMENTI.: scrivete lindi- 

rirro completo 

COLLABORAZIONE: il lislelo non 
è indispensabile, la cassali a si. 

HELP- non accludete tra neo boi - 
li, nera rispondi me private utente 

INSERZIONI: la rubrica è desti- 
nala agli scambi tra privali: la re- 
dazione si risela II diritto di modi- 
ficare o cestinare gii annunci pale- 
sa mente speculativi. 



INSERZIONI 







16 BIT 


SINCLAIR QL: 

AL VERTICE DELLA NUOVA GENERAZIONE 


6 BIT 


Sinclair QL rivoluziona il mando dai computer, perche Ha la possibilità di multitask e può essere inserito in 

combina lo dimensioni di un homo con la potenza e le reti di comunicazione. 

capacità di un mini- Grazie ai due microdrive e al software incorporati. 

QL é l'unico computer, nella sua fascia, ad impiegare Sinclair QL. nella sua confezione originale, è già 

il microprocessore a 32 bit. quando gli altri si pronto per l'uso: basta codiarlo ad un video, 

fermano a 8 oppure 16. E pensare che tutta questa tecnologia pesa meno di 

La sua portentosa memoria à di 1 28 KRA.Vl due chili e trova spazio in una normale 24 ore. 

espandibile a 640. Un computer così non poteva che essere Sinclair. 

I quattro programmi applicativi, 
già incorporati. 

sono immediatamente utilizzabili 
e superano, in qualità, il software 
dei microcomputer esistenti. 


Distribuzione esclusiva: C-BC Divisivi^ Re bit. 


Tutti i prodotti Sinclair, 
distribuiti da GBC Divisione 
sono corredati da regolar^ 
certificato di garanzia it^ 


te Rebit. 



Le nuove Maxell 





È la soluzione ideale 
per chi vuole una cassetta di 
categoria superiore ad un costo contenuto 
Utilizza un nastro di posizione ''Chromo” (CrOj 
prodotto con la stessa tecnologia dei nastri XL e XL*S Maxell 
Infatti il nastro della UD II è composto dalle collaudate parlicene magnetiche 
"Fine Epitaxiai'L ulteriormente perfezionate. Di conseguenza è aumentata (ulta la gamma 
dinamica del nastro, il livello d'uscita alle medie ed alte frequenze, mentre il livello 
di rumore di bias ed il rumore di modulazione sono ridotti praticarne me 
a zero 

Il meccanismo di scorrimento F A e la perfezione dei guso della cassetta 
assicurano un regolare svolgimento del nastro, mantenendolo sempre per- 
pendicolare alla testina del registratore (differenza di fase entro i 10°). è TUTTA UN'AURA MUSICA 


maxell 


Vanta una tecnologia senza 
confronti nelia sua categoria. 

Infatll tutte le proprietà 
magnetiche del suo nasiro 
sono esaltate al massimo 
grazie alla nuova particella 
magnetica ‘Ferricrystar 
ohe, a differenza di quelle 
tradizionali, è 

assolutamente non porosa. La 

quindi, offre un II vedo d'uscita 
migliorato su tutta la gamma di 
frequenze, specialmente nelle 
medie e basse; una più ampia 
gamma dinamica, ed ottime 
caratteristiche di lownoise. 
Adotta la meccanica P A. 
(FHASE ACCURACY) per 
garantire la massima 
stabilità di svolgimento del 
nastro e per contenere ^ 
differenza di fase tre s 
canali stereo e-niro i 10°, 
Pud essere usata 
su qualsiasi tipo 
di registratore. 


UDII 


udì 


